Changeset 13045
- Timestamp:
- 2020-06-04T15:26:11+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_FOAMv14_phytobal3d/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90
r10302 r13045 39 39 USE in_out_manager ! I/O manager 40 40 USE iom ! I/O module 41 USE iom_def, ONLY : jp_r4 ! iom variables definitions 41 42 USE asmpar ! Parameters for the assmilation interface 42 43 USE zdfmxl ! mixed layer depth … … 116 117 IF(nn_timing == 2) CALL timing_start('iom_rstput') 117 118 CALL iom_rstput( kt, nitbkg_r, inum, 'rdastp' , zdate ) 118 CALL iom_rstput( kt, nitbkg_r, inum, 'un' , un )119 CALL iom_rstput( kt, nitbkg_r, inum, 'vn' , vn )120 CALL iom_rstput( kt, nitbkg_r, inum, 'tn' , tsn(:,:,:,jp_tem) )121 CALL iom_rstput( kt, nitbkg_r, inum, 'sn' , tsn(:,:,:,jp_sal) )122 CALL iom_rstput( kt, nitbkg_r, inum, 'sshn' , sshn )119 CALL iom_rstput( kt, nitbkg_r, inum, 'un' , un , ktype = jp_r4 ) 120 CALL iom_rstput( kt, nitbkg_r, inum, 'vn' , vn , ktype = jp_r4 ) 121 CALL iom_rstput( kt, nitbkg_r, inum, 'tn' , tsn(:,:,:,jp_tem), ktype = jp_r4 ) 122 CALL iom_rstput( kt, nitbkg_r, inum, 'sn' , tsn(:,:,:,jp_sal), ktype = jp_r4 ) 123 CALL iom_rstput( kt, nitbkg_r, inum, 'sshn' , sshn , ktype = jp_r4 ) 123 124 #if defined key_zdftke 124 CALL iom_rstput( kt, nitbkg_r, inum, 'en' , en )125 CALL iom_rstput( kt, nitbkg_r, inum, 'en' , en , ktype = jp_r4 ) 125 126 #endif 126 127 ! CALL iom_rstput( kt, nitbkg_r, inum, 'gcx' , gcx ) 127 CALL iom_rstput( kt, nitbkg_r, inum, 'avt' , avt )128 CALL iom_rstput( kt, nitbkg_r, inum, 'avt' , avt , ktype = jp_r4 ) 128 129 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 129 130 !
Note: See TracChangeset
for help on using the changeset viewer.