- Timestamp:
- 2017-08-08T16:18:04+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/OPA_SRC/BDY/bdyice.F90
r8422 r8424 20 20 USE oce ! ocean dynamics and tracers variables 21 21 USE ice ! LIM_3 ice variables 22 USE limvar22 USE icevar 23 23 USE icectl 24 24 USE par_oce ! ocean parameters … … 56 56 !!---------------------------------------------------------------------- 57 57 ! 58 CALL lim_var_glo2eqv58 CALL ice_var_glo2eqv 59 59 ! 60 60 DO ib_bdy=1, nb_bdy … … 71 71 END DO 72 72 ! 73 CALL lim_var_zapsmall74 CALL lim_var_agg(1)73 CALL ice_var_zapsmall 74 CALL ice_var_agg(1) 75 75 IF( ln_limctl ) CALL ice_prt( kt, iiceprt, jiceprt, 1, ' - ice thermo bdy - ' ) 76 76 !
Note: See TracChangeset
for help on using the changeset viewer.