- Timestamp:
- 2019-08-05T19:14:52+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfpar.F90
r11395 r11403 58 58 INTEGER, INTENT(in) :: kt ! ocean time step 59 59 !!--------------------------------------------------------------------- 60 !!---------------------------------------------------------------------61 60 REAL(wp), DIMENSION(jpi,jpj) :: zqoce, zqhc, zqlat, zqh 62 61 !!--------------------------------------------------------------------- … … 106 105 CALL isf_alloc_par() 107 106 ! 107 ! par 108 misfkt_par(:,:) = 1 ; misfkb_par(:,:) = 1 109 rhisf_tbl_par(:,:) = 1e-20 ; rfrac_tbl_par(:,:) = 0.0_wp 110 ! 111 mskisf_par(:,:) = 0 112 ! 108 113 ! define isf tbl tickness, top and bottom indice 109 114 CALL read_2dcstdta(TRIM(sn_isfpar_zmax%clname), TRIM(sn_isfpar_zmax%clvar), ztblmax) … … 126 131 ! 127 132 ! compute misfkb_par, rhisf_tbl 128 rhisf_tbl (:,:) = rhisf0_tbl_par(:,:)133 rhisf_tbl_par(:,:) = rhisf0_tbl_par(:,:) 129 134 CALL isf_tbl_lvl( ht_n, e3t_n, misfkt_par, misfkb_par, rhisf_tbl_par, rfrac_tbl_par ) 130 135 !
Note: See TracChangeset
for help on using the changeset viewer.