Changeset 8424 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90

Timestamp:

2017-08-08T16:18:04+02:00 (7 years ago)

Author:

clem

Message:

continue naming

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90 (modified) (4 diffs)

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90

@@ -42 +42 @@
    USE iceerr1         ! Ice corrections after dynamics
    USE iceerr2         ! Ice corrections after thermo
-   USE limvar          ! Ice variables switch
+   USE icevar          ! Ice variables switch
    USE icectl          !
    ! MV MP 2016
@@ -167 +167 @@
          IF( ln_limthd .AND. ln_bdy ) CALL bdy_ice( kt )       ! -- bdy ice thermo 
          ! previous lead fraction and ice volume for flux calculations
-                                      CALL lim_var_glo2eqv     ! ht_i and ht_s for ice albedo calculation
-                                      CALL lim_var_agg(1)      ! at_i for coupling 
+                                      CALL ice_var_glo2eqv     ! ht_i and ht_s for ice albedo calculation
+                                      CALL ice_var_agg(1)      ! at_i for coupling 
                                       CALL ice_bef
 
@@ -201 +201 @@
          IF( .NOT. Agrif_Root() )     CALL agrif_update_lim3( kt )
 # endif
-                                      CALL lim_var_glo2eqv      ! necessary calls (at least for coupling)
-                                      CALL lim_var_agg( 2 )     ! necessary calls (at least for coupling)
+                                      CALL ice_var_glo2eqv      ! necessary calls (at least for coupling)
+                                      CALL ice_var_agg( 2 )     ! necessary calls (at least for coupling)
                                       !
 !! clem: one should switch the calculation of the fluxes onto the parent grid but the following calls do not work
@@ -286 +286 @@
          CALL ice_rst_read
       ENDIF
-      CALL lim_var_agg(2)
-      CALL lim_var_glo2eqv
+      CALL ice_var_agg(2)
+      CALL ice_var_glo2eqv
       !
       CALL ice_update_init                 ! ice surface boundary condition