Merge branch 'master' of https://github.com/uturuncoglu/RegESM

Author: uturuncoglu

mod_esmf_cop.F90

@@ -301,7 +301,7 @@ subroutine COP_SetInitializeP1(gcomp,                             &
       rc = ESMF_SUCCESS
 !
 !-----------------------------------------------------------------------
-!     Set import fields 
+!     Set import fields (one-way interaction, there is no export fields) 
 !-----------------------------------------------------------------------
 !
       do i = 1, ubound(models(Icopro)%importField, dim=1)
@@ -313,20 +313,6 @@ subroutine COP_SetInitializeP1(gcomp,                             &
         if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU,  &
                                line=__LINE__, file=FILENAME)) return
       end do 
-!
-!-----------------------------------------------------------------------
-!     Set export fields 
-!-----------------------------------------------------------------------
-!
-      do i = 1, ubound(models(Icopro)%exportField, dim=1)
-        call NUOPC_Advertise(exportState,                               &
-             StandardName=trim(models(Icopro)%exportField(i)%long_name),&
-             name=trim(models(Icopro)%exportField(i)%short_name),       &
-             TransferOfferGeomObject="cannot provide",                  &
-             rc=rc)
-        if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU,  &
-                               line=__LINE__, file=FILENAME)) return
-      end do
 !
       end subroutine COP_SetInitializeP1
 !

util/mod_config.F90

@@ -1031,6 +1031,7 @@ subroutine set_field_dir(vm, rc)
         if (.not. models(i)%modActive) cycle
 !
         do j = 1, nf
+          if (.not. allocated(models(i)%exportField)) cycle
           lname = trim(models(i)%exportField(j)%long_name)
           sname = trim(models(i)%exportField(j)%short_name)
           units = trim(models(i)%exportField(j)%units)
@@ -1052,6 +1053,7 @@ subroutine set_field_dir(vm, rc)
 !
         nf = size(models(i)%importField)
         do j = 1, nf
+          if (.not. allocated(models(i)%importField)) cycle
           lname = trim(models(i)%importField(j)%long_name)
           sname = trim(models(i)%importField(j)%short_name)
           units = trim(models(i)%importField(j)%units)