- Timestamp:
- 2020-11-24T21:32:46+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13787_OSMOSIS_IMMERSE/src/OCE/DIA/diawri.F90
r13497 r13867 46 46 USE zdfdrg ! ocean vertical physics: top/bottom friction 47 47 USE zdfmxl ! mixed layer 48 USE zdfosm ! mixed layer 48 49 ! 49 50 USE lbclnk ! ocean lateral boundary conditions (or mpp link) … … 1076 1077 CALL iom_rstput ( 0, 0, inum, "qz1_abl", tq_abl(:,:,2,nt_a,2) ) ! now first level humidity 1077 1078 ENDIF 1079 IF( ln_zdfosm ) THEN 1080 CALL iom_rstput( 0, 0, inum, 'hbl', hbl*tmask(:,:,1) ) ! now boundary-layer depth 1081 CALL iom_rstput( 0, 0, inum, 'hml', hml*tmask(:,:,1) ) ! now mixed-layer depth 1082 CALL iom_rstput( 0, 0, inum, 'avt_k', avt_k*wmask ) ! w-level diffusion 1083 CALL iom_rstput( 0, 0, inum, 'avm_k', avm_k*wmask ) ! now w-level viscosity 1084 CALL iom_rstput( 0, 0, inum, 'ghamt', ghamt*wmask ) ! non-local t forcing 1085 CALL iom_rstput( 0, 0, inum, 'ghams', ghams*wmask ) ! non-local s forcing 1086 CALL iom_rstput( 0, 0, inum, 'ghamu', ghamu*umask ) ! non-local u forcing 1087 CALL iom_rstput( 0, 0, inum, 'ghamv', ghamv*vmask ) ! non-local v forcing 1088 IF( ln_osm_mle ) THEN 1089 CALL iom_rstput( 0, 0, inum, 'hmle', hmle*tmask(:,:,1) ) ! now transition-layer depth 1090 END IF 1091 ENDIF 1078 1092 ! 1079 1093 CALL iom_close( inum )
Note: See TracChangeset
for help on using the changeset viewer.