Changeset 3954 for branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

Timestamp:

2013-07-03T16:20:05+02:00 (11 years ago)

Author:

clevy

Message:

Configuration setting/Step2, additions, see ticket:#1074

File:

• branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90 (modified) (6 diffs)

branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

@@ -118 +118 @@
       !!----------------------------------------------------------------------
       !
+
 #if defined key_agrif
       CALL Agrif_Init_Grids()      ! AGRIF: set the meshes
@@ -135 +136 @@
 # endif
 #endif
+
       ! check that all process are still there... If some process have an error,
       ! they will never enter in step and other processes will wait until the end of the cpu time!
@@ -161 +163 @@
 
          DO WHILE ( istp <= nitend .AND. nstop == 0 )
+
 #if defined key_agrif
             CALL Agrif_Step( stp )           ! AGRIF: time stepping
@@ -166 +169 @@
             CALL stp( istp )                 ! standard time stepping
 #endif
+
             istp = istp + 1
             IF( lk_mpp )   CALL mpp_max( nstop )
@@ -360 +364 @@
                             CALL     sbc_init   ! Forcings : surface module
       !                                         ! Vertical physics
+
                             CALL     zdf_init      ! namelist read
+
                             CALL zdf_bfr_init      ! bottom friction
+
       IF( lk_zdfric     )   CALL zdf_ric_init      ! Richardson number dependent Kz
       IF( lk_zdftke     )   CALL zdf_tke_init      ! TKE closure scheme
@@ -394 +401 @@
       IF( nn_cla == 1   )   CALL cla_init       ! Cross Land Advection
                             CALL icb_init( rdt, nit000)   ! initialise icebergs instance
-      
+     
 #if defined key_top
       !                                     ! Passive tracers
                             CALL     trc_init
 #endif
-      !                                     ! Diagnostics
+      !
+ 
+                                            ! Diagnostics
       IF( lk_floats     )   CALL     flo_init   ! drifting Floats
       IF( lk_diaar5     )   CALL dia_ar5_init   ! ar5 diag