Changeset 4029 for branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/NEMO/OFF_SRC

Timestamp:

2013-09-18T10:01:34+02:00 (11 years ago)

Author:

cetlod

Message:

Branch 2013/dev_r3940_CNRS4_IOCRS : minor improvments

File:

• branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90 (modified) (2 diffs)

branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90

@@ -89 +89 @@
       istp = nit000
       ! 
-      CALL iom_init            ! iom_put initialization (must be done after nemo_init for AGRIF+XIOS+OASIS)
+      CALL iom_init( "nemo" )            ! iom_put initialization (must be done after nemo_init for AGRIF+XIOS+OASIS)
       ! 
       DO WHILE ( istp <= nitend .AND. nstop == 0 )    ! time stepping
          !
          IF( istp /= nit000 )   CALL day      ( istp )         ! Calendar (day was already called at nit000 in day_init)
-                                CALL iom_setkt( istp - nit000 + 1 )         ! say to iom that we are at time step kstp
+                                CALL iom_setkt( istp - nit000 + 1, "nemo" )         ! say to iom that we are at time step kstp
                                 CALL dta_dyn  ( istp )         ! Interpolation of the dynamical fields
                                 CALL trc_stp  ( istp )         ! time-stepping
@@ -394 +394 @@
       ierr = ierr + zdf_oce_alloc   ()          ! ocean vertical physics
       !
-      ierr = ierr + lib_mpp_alloc   (numout)    ! mpp exchanges
       ierr = ierr + trc_oce_alloc   ()          ! shared TRC / TRA arrays
       !