- Timestamp:
- 2019-12-11T09:53:24+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/DIA/diawri.F90
r12154 r12166 27 27 USE oce ! ocean dynamics and tracers 28 28 USE abl ! abl variables in case ln_abl = .true. 29 USE isf_oce 30 USE isfcpl 29 31 USE dom_oce ! ocean space and time domain 30 32 USE phycst ! physical constants … … 957 959 CHARACTER (len=* ), INTENT( in ) :: cdfile_name ! name of the file created 958 960 !! 959 INTEGER :: inum 961 INTEGER :: inum, jk 960 962 !!---------------------------------------------------------------------- 961 963 ! … … 981 983 CALL iom_rstput( 0, 0, inum, 'vovecrtz', wn ) ! now k-velocity 982 984 ENDIF 985 CALL iom_rstput( 0, 0, inum, 'risfdep', risfdep ) ! now k-velocity 986 CALL iom_rstput( 0, 0, inum, 'ht_n' , ht_n ) ! now k-velocity 987 988 IF ( ln_isf ) THEN 989 IF (ln_isfcav_mlt) THEN 990 CALL iom_rstput( 0, 0, inum, 'fwfisf_cav', fwfisf_cav ) ! now k-velocity 991 CALL iom_rstput( 0, 0, inum, 'rhisf_cav_tbl', rhisf_tbl_cav ) ! now k-velocity 992 CALL iom_rstput( 0, 0, inum, 'rfrac_cav_tbl', rfrac_tbl_cav ) ! now k-velocity 993 CALL iom_rstput( 0, 0, inum, 'misfkb_cav', REAL(misfkb_cav,8) ) ! now k-velocity 994 CALL iom_rstput( 0, 0, inum, 'misfkt_cav', REAL(misfkt_cav,8) ) ! now k-velocity 995 CALL iom_rstput( 0, 0, inum, 'mskisf_cav', REAL(mskisf_cav,8), ktype = jp_i1 ) 996 END IF 997 IF (ln_isfpar_mlt) THEN 998 CALL iom_rstput( 0, 0, inum, 'isfmsk_par', REAL(mskisf_par,8) ) ! now k-velocity 999 CALL iom_rstput( 0, 0, inum, 'fwfisf_par', fwfisf_par ) ! now k-velocity 1000 CALL iom_rstput( 0, 0, inum, 'rhisf_par_tbl', rhisf_tbl_par ) ! now k-velocity 1001 CALL iom_rstput( 0, 0, inum, 'rfrac_par_tbl', rfrac_tbl_par ) ! now k-velocity 1002 CALL iom_rstput( 0, 0, inum, 'misfkb_par', REAL(misfkb_par,8) ) ! now k-velocity 1003 CALL iom_rstput( 0, 0, inum, 'misfkt_par', REAL(misfkt_par,8) ) ! now k-velocity 1004 CALL iom_rstput( 0, 0, inum, 'mskisf_par', REAL(mskisf_par,8), ktype = jp_i1 ) 1005 END IF 1006 END IF 1007 983 1008 IF( ALLOCATED(ahtu) ) THEN 984 1009 CALL iom_rstput( 0, 0, inum, 'ahtu', ahtu ) ! aht at u-point
Note: See TracChangeset
for help on using the changeset viewer.