Changeset 8413 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO
- Timestamp:
- 2017-08-07T19:05:39+02:00 (7 years ago)
- Location:
- branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO
- Files:
-
- 3 added
- 3 deleted
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/ice.F90
r8409 r8413 180 180 181 181 ! !!** ice-init namelist (namiceini) ** 182 ! -- limistate -- !182 ! -- iceistate -- ! 183 183 LOGICAL , PUBLIC :: ln_limini ! initialization or not 184 184 LOGICAL , PUBLIC :: ln_limini_file ! Ice initialization state from 2D netcdf file -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icestp.F90
r8411 r8413 38 38 USE limsbc ! sea surface boundary condition 39 39 USE limdiahsb ! Ice budget diagnostics 40 USE limwri ! Ice outputs41 USE limrst ! Ice restarts40 USE icewri ! Ice outputs 41 USE icerst ! Ice restarts 42 42 USE iceerr1 ! Ice corrections after dynamics 43 43 USE iceerr2 ! Ice corrections after thermo … … 47 47 USE limmp 48 48 ! END MV MP 2016 49 USE limistate ! LIM initial state49 USE iceistate ! LIM initial state 50 50 USE limthd_sal ! LIM ice thermodynamics: salinity 51 51 ! … … 149 149 !-------------------------------------------------------! 150 150 CALL ice_diag0 ! set diag of mass, heat and salt fluxes to 0 151 CALL lim_rst_opn( kt ) ! Open Ice restart file151 CALL ice_rst_opn( kt ) ! Open Ice restart file 152 152 ! 153 153 ! --- zap this if no ice dynamics --- ! … … 215 215 IF( ln_limdiahsb ) CALL lim_diahsb( kt ) ! -- Diagnostics and outputs 216 216 ! 217 CALL lim_wri( 1 ) ! -- Ice outputs217 CALL ice_wri( 1 ) ! -- Ice outputs 218 218 ! 219 219 IF( kt == nit000 .AND. ln_rstart ) & 220 220 & CALL iom_close( numrir ) ! close input ice restart file 221 221 ! 222 IF( lrst_ice ) CALL lim_rst_write( kt ) ! -- Ice restart file222 IF( lrst_ice ) CALL ice_rst_write( kt ) ! -- Ice restart file 223 223 ! 224 224 IF( ln_limctl ) CALL ice_ctl( kt ) ! alerts in case of model crash … … 282 282 ! ! Initial sea-ice state 283 283 IF( .NOT. ln_rstart ) THEN ! start from rest: sea-ice deduced from sst 284 CALL lim_istate284 CALL ice_istate 285 285 ELSE ! start from a restart file 286 CALL lim_rst_read286 CALL ice_rst_read 287 287 ENDIF 288 288 CALL lim_var_agg(2) -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limdiahsb.F90
r8321 r8413 23 23 USE iom ! I/O manager 24 24 USE lib_fortran ! glob_sum 25 USE limrst ! ice restart25 USE icerst ! ice restart 26 26 27 27 IMPLICIT NONE -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limvar.F90
r8378 r8413 612 612 !! ice thickness distribution follows a gaussian law 613 613 !! around the concentration of the most likely ice thickness 614 !! (similar as limistate.F90)614 !! (similar as iceistate.F90) 615 615 !! 616 616 !! ** Method: Iterative procedure -
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90
r8316 r8413 52 52 53 53 #if defined key_lim3 54 USE limwri54 USE icewri 55 55 #endif 56 56 USE lib_mpp ! MPP library … … 997 997 #if defined key_lim3 998 998 IF( nn_ice == 2 ) THEN ! clem2017: condition in case agrif + lim but no-ice in child grid 999 CALL lim_wri_state( kt, id_i, nh_i )999 CALL ice_wri_state( kt, id_i, nh_i ) 1000 1000 ENDIF 1001 1001 #else
Note: See TracChangeset
for help on using the changeset viewer.