Changeset 8885 for branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90

Timestamp:

2017-12-04T10:41:40+01:00 (6 years ago)

Author:

clem

Message:

remove useless references to clem's comments

File:

• branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90 (modified) (4 diffs)

branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90

@@ -31 +31 @@
    USE icbini         ! handle bergs, initialisation
    USE icbstp         ! handle bergs, calving, themodynamics and transport
-   USE bdyini         ! open boundary cond. setting       (bdy_init routine). clem: mandatory for LIM3
-   USE bdydta         ! open boundary cond. setting   (bdy_dta_init routine). clem: mandatory for LIM3
+   USE bdyini         ! open boundary cond. setting       (bdy_init routine). mandatory for sea-ice
+   USE bdydta         ! open boundary cond. setting   (bdy_dta_init routine). mandatory for sea-ice
    !
    USE lib_mpp        ! distributed memory computing
@@ -132 +132 @@
       !
 #if defined key_agrif
-!!clem2017      IF( .NOT. Agrif_Root() ) THEN
          CALL Agrif_ParentGrid_To_ChildGrid()
          IF( ln_timing )   CALL timing_finalize
          CALL Agrif_ChildGrid_To_ParentGrid()
-!!clem2017      ENDIF
 #endif
       IF( ln_timing )   CALL timing_finalize
@@ -366 +364 @@
                            CALL sbc_init   ! Forcings : surface module 
 
-      ! ==> clem: open boundaries init. is mandatory for LIM3 because ice BDY is not decoupled from  
+      ! ==> clem: open boundaries init. is mandatory for sea-ice because ice BDY is not decoupled from  
       !           the environment of ocean BDY. Therefore bdy is called in both OPA and SAS modules. 
       !           This is not clean and should be changed in the future. 
@@ -511 +509 @@
       USE dom_oce   , ONLY: dom_oce_alloc
       USE bdy_oce   , ONLY: ln_bdy, bdy_oce_alloc
-      USE oce         ! clem: mandatory for LIM3 because needed for bdy arrays
+      USE oce       ! mandatory for sea-ice because needed for bdy arrays
       !
       INTEGER :: ierr