- Timestamp:
- 2017-09-08T17:09:25+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icecor.F90
r8512 r8514 64 64 ENDIF 65 65 ! !--- conservation test 66 IF( ln_ limdiachk ) CALL ice_cons_hsm(0, 'icecor', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b)66 IF( ln_icediachk ) CALL ice_cons_hsm(0, 'icecor', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 67 67 ! 68 68 ! … … 86 86 87 87 ! !----------------------------------------------------- 88 IF ( nn_icesal == 2 ) THEN ! salinity stays in bounds [Simin,Simax]!88 IF ( nn_icesal == 2 ) THEN ! salinity must stay in bounds [Simin,Simax] ! 89 89 ! !----------------------------------------------------- 90 90 zzc = rhoic * r1_rdtice … … 176 176 ! 177 177 ! !--- conservation test 178 IF( ln_ limdiachk ) CALL ice_cons_hsm(1, 'icecor', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b)178 IF( ln_icediachk ) CALL ice_cons_hsm(1, 'icecor', zvi_b, zsmv_b, zei_b, zfw_b, zfs_b, zft_b) 179 179 ! 180 180 ! !--- control prints 181 181 IF( ln_ctl ) CALL ice_prt3D( 'icecor' ) 182 IF( ln_ limctl .AND. kn == 2 ) CALL ice_prt( kt, iiceprt, jiceprt, 2, ' - Final state - ' )182 IF( ln_icectl .AND. kn == 2 ) CALL ice_prt( kt, iiceprt, jiceprt, 2, ' - Final state - ' ) 183 183 ! 184 184 IF( nn_timing == 1 ) CALL timing_stop('icecor')
Note: See TracChangeset
for help on using the changeset viewer.