Changeset 8885 for branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC

Timestamp:

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

Author:

clem

Message:

remove useless references to clem's comments

Location:

branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC

Files:

• BDY/bdyini.F90 (modified) (1 diff)
• DIA/diawri.F90 (modified) (2 diffs)
• SBC/sbcblk.F90 (modified) (1 diff)
• SBC/sbcmod.F90 (modified) (1 diff)
• nemogcm.F90 (modified) (1 diff)

branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90

@@ -502 +502 @@
             DO igrd = 1, jpbgrd
                id_dummy = iom_varid( inum, 'nbi'//cgrid(igrd), kdimsz=kdimsz )  
-               !clem nblendta(igrd,ib_bdy) = kdimsz(1)
-               !clem jpbdtau = MAX(jpbdtau, kdimsz(1))
                nblendta(igrd,ib_bdy) = MAXVAL(kdimsz)
                jpbdtau = MAX(jpbdtau, MAXVAL(kdimsz))

branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

@@ -249 +249 @@
       ENDIF
          
-      ! clem: heat and salt content
+      ! heat and salt contents
       IF( iom_use("heatc") ) THEN
          z2d(:,:)  = 0._wp 
@@ -967 +967 @@
 
 #if defined key_lim3
-      IF( nn_ice == 2 ) THEN   ! clem2017: condition in case agrif + lim but no-ice in child grid
+      IF( nn_ice == 2 ) THEN   ! condition needed in case agrif + ice-model but no-ice in child grid
          CALL ice_wri_state( kt, id_i, nh_i )
       ENDIF

branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk.F90

@@ -111 +111 @@
    LOGICAL  ::   ln_taudif      ! logical flag to use the "mean of stress module - module of mean stress" data
    REAL(wp) ::   rn_pfac        ! multiplication factor for precipitation
-   REAL(wp) ::   rn_efac        ! multiplication factor for evaporation (clem)
-   REAL(wp) ::   rn_vfac        ! multiplication factor for ice/ocean velocity in the calculation of wind stress (clem)
+   REAL(wp) ::   rn_efac        ! multiplication factor for evaporation
+   REAL(wp) ::   rn_vfac        ! multiplication factor for ice/ocean velocity in the calculation of wind stress
    REAL(wp) ::   rn_zqt         ! z(q,t) : height of humidity and temperature measurements
    REAL(wp) ::   rn_zu          ! z(u)   : height of wind measurements

branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

@@ -312 +312 @@
       !
 #if defined key_lim3
-      IF( lk_agrif .AND. nn_ice == 0 ) THEN
-                          IF( sbc_ice_alloc() /= 0 )   CALL ctl_stop('STOP', 'sbc_ice_alloc : unable to allocate arrays' )  ! clem2017: allocate ice arrays in case agrif + lim + no-ice in child grid
+      IF( lk_agrif .AND. nn_ice == 0 ) THEN            ! allocate ice arrays in case agrif + ice-model + no-ice in child grid
+                          IF( sbc_ice_alloc() /= 0 )   CALL ctl_stop('STOP', 'sbc_ice_alloc : unable to allocate arrays' )
       ELSEIF( nn_ice == 2 ) THEN
-                          CALL ice_init                ! LIM3 initialization
+                          CALL ice_init                ! ICE initialization
       ENDIF
 #endif

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

@@ -203 +203 @@
 #if defined key_agrif
       CALL Agrif_ParentGrid_To_ChildGrid()
-      IF( ln_diaobs ) CALL dia_obs_wri
+      IF( ln_diaobs )        CALL dia_obs_wri
       IF( nn_timing == 1 )   CALL timing_finalize
       CALL Agrif_ChildGrid_To_ParentGrid()