Changeset 15417
- Timestamp:
- 2021-10-20T16:16:29+02:00 (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/ASM/asmbkg.F90
r15399 r15417 31 31 USE eosbn2 ! Equation of state (eos_bn2 routine) 32 32 USE zdfmxl ! Mixed layer depth 33 USE dom_oce , ONLY : ndastp, l_istiled,33 USE dom_oce , ONLY : ndastp, l_istiled 34 34 USE in_out_manager ! I/O manager 35 35 USE iom ! I/O module … … 142 142 CALL iom_rstput( kt, nitdin_r, inum, 'sn' , ts(:,:,:,jp_sal,Kmm) ) 143 143 CALL iom_rstput( kt, nitdin_r, inum, 'sshn' , ssh(:,:,Kmm) ) 144 144 #if defined key_si3 145 145 IF( nn_ice == 2 ) THEN 146 146 IF( ALLOCATED(at_i) ) THEN … … 151 151 ENDIF 152 152 ENDIF 153 153 #endif 154 154 ! 155 155 CALL iom_close( inum )
Note: See TracChangeset
for help on using the changeset viewer.