- Timestamp:
- 2019-11-22T15:29:17+01:00 (4 years ago)
- Location:
- NEMO/branches/2019/dev_r11943_MERGE_2019/src
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11943_MERGE_2019/src
- Property svn:mergeinfo deleted
-
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/ASM/asmbkg.F90
r10425 r11949 52 52 CONTAINS 53 53 54 SUBROUTINE asm_bkg_wri( kt )54 SUBROUTINE asm_bkg_wri( kt, Kmm ) 55 55 !!----------------------------------------------------------------------- 56 56 !! *** ROUTINE asm_bkg_wri *** … … 65 65 !!----------------------------------------------------------------------- 66 66 INTEGER, INTENT( IN ) :: kt ! Current time-step 67 INTEGER, INTENT( IN ) :: Kmm ! time level index 67 68 ! 68 69 CHARACTER (LEN=50) :: cl_asmbkg … … 98 99 ! 99 100 ! ! Write the information 100 CALL iom_rstput( kt, nitbkg_r, inum, 'rdastp' , zdate )101 CALL iom_rstput( kt, nitbkg_r, inum, 'un' , u n)102 CALL iom_rstput( kt, nitbkg_r, inum, 'vn' , v n)103 CALL iom_rstput( kt, nitbkg_r, inum, 'tn' , ts n(:,:,:,jp_tem) )104 CALL iom_rstput( kt, nitbkg_r, inum, 'sn' , ts n(:,:,:,jp_sal) )105 CALL iom_rstput( kt, nitbkg_r, inum, 'sshn' , ssh n)106 IF( ln_zdftke ) CALL iom_rstput( kt, nitbkg_r, inum, 'en' , en 101 CALL iom_rstput( kt, nitbkg_r, inum, 'rdastp' , zdate ) 102 CALL iom_rstput( kt, nitbkg_r, inum, 'un' , uu(:,:,:,Kmm) ) 103 CALL iom_rstput( kt, nitbkg_r, inum, 'vn' , vv(:,:,:,Kmm) ) 104 CALL iom_rstput( kt, nitbkg_r, inum, 'tn' , ts(:,:,:,jp_tem,Kmm) ) 105 CALL iom_rstput( kt, nitbkg_r, inum, 'sn' , ts(:,:,:,jp_sal,Kmm) ) 106 CALL iom_rstput( kt, nitbkg_r, inum, 'sshn' , ssh(:,:,Kmm) ) 107 IF( ln_zdftke ) CALL iom_rstput( kt, nitbkg_r, inum, 'en' , en ) 107 108 ! 108 109 CALL iom_close( inum ) … … 133 134 ! 134 135 ! ! Write the information 135 CALL iom_rstput( kt, nitdin_r, inum, 'rdastp' , zdate )136 CALL iom_rstput( kt, nitdin_r, inum, 'un' , u n)137 CALL iom_rstput( kt, nitdin_r, inum, 'vn' , v n)138 CALL iom_rstput( kt, nitdin_r, inum, 'tn' , ts n(:,:,:,jp_tem) )139 CALL iom_rstput( kt, nitdin_r, inum, 'sn' , ts n(:,:,:,jp_sal) )140 CALL iom_rstput( kt, nitdin_r, inum, 'sshn' , ssh n)136 CALL iom_rstput( kt, nitdin_r, inum, 'rdastp' , zdate ) 137 CALL iom_rstput( kt, nitdin_r, inum, 'un' , uu(:,:,:,Kmm) ) 138 CALL iom_rstput( kt, nitdin_r, inum, 'vn' , vv(:,:,:,Kmm) ) 139 CALL iom_rstput( kt, nitdin_r, inum, 'tn' , ts(:,:,:,jp_tem,Kmm) ) 140 CALL iom_rstput( kt, nitdin_r, inum, 'sn' , ts(:,:,:,jp_sal,Kmm) ) 141 CALL iom_rstput( kt, nitdin_r, inum, 'sshn' , ssh(:,:,Kmm) ) 141 142 #if defined key_si3 142 143 IF( nn_ice == 2 ) THEN
Note: See TracChangeset
for help on using the changeset viewer.