Changeset 10970 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/FLO/flowri.F90
- Timestamp:
- 2019-05-13T14:02:19+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/FLO/flowri.F90
r10425 r10970 55 55 END FUNCTION flo_wri_alloc 56 56 57 SUBROUTINE flo_wri( kt )57 SUBROUTINE flo_wri( kt, Kmm ) 58 58 !!--------------------------------------------------------------------- 59 59 !! *** ROUTINE flo_wri *** … … 68 68 !!---------------------------------------------------------------------- 69 69 !! * Arguments 70 INTEGER :: kt ! time step 70 INTEGER, INTENT(in) :: kt ! time step 71 INTEGER, INTENT(in) :: Kmm ! time level index 71 72 72 73 !! * Local declarations … … 120 121 zlon(jfl) = (1.-zafl)*(1.-zbfl)*glamt(iafloc ,ibfloc ) + (1.-zafl) * zbfl * glamt(iafloc ,ib1floc) & 121 122 + zafl *(1.-zbfl)*glamt(ia1floc,ibfloc ) + zafl * zbfl * glamt(ia1floc,ib1floc) 122 zdep(jfl) = (1.-zcfl)*gdepw _n(iafloc,ibfloc,icfl ) + zcfl * gdepw_n(iafloc,ibfloc,ic1fl)123 zdep(jfl) = (1.-zcfl)*gdepw(iafloc,ibfloc,icfl ,Kmm) + zcfl * gdepw(iafloc,ibfloc,ic1fl,Kmm) 123 124 124 125 !save temperature, salinity and density at this position 125 ztem(jfl) = ts n(iafloc,ibfloc,icfl,jp_tem)126 zsal (jfl) = ts n(iafloc,ibfloc,icfl,jp_sal)126 ztem(jfl) = ts(iafloc,ibfloc,icfl,jp_tem,Kmm) 127 zsal (jfl) = ts(iafloc,ibfloc,icfl,jp_sal,Kmm) 127 128 zrho (jfl) = (rhd(iafloc,ibfloc,icfl)+1)*rau0 128 129 … … 141 142 zlon(jfl) = (1.-zafl)*(1.-zbfl)*glamt(iafloc ,ibfloc ) + (1.-zafl) * zbfl * glamt(iafloc ,ib1floc) & 142 143 + zafl *(1.-zbfl)*glamt(ia1floc,ibfloc ) + zafl * zbfl * glamt(ia1floc,ib1floc) 143 zdep(jfl) = (1.-zcfl)*gdepw _n(iafloc,ibfloc,icfl ) + zcfl * gdepw_n(iafloc,ibfloc,ic1fl)144 145 ztem(jfl) = ts n(iafloc,ibfloc,icfl,jp_tem)146 zsal(jfl) = ts n(iafloc,ibfloc,icfl,jp_sal)144 zdep(jfl) = (1.-zcfl)*gdepw(iafloc,ibfloc,icfl ,Kmm) + zcfl * gdepw(iafloc,ibfloc,ic1fl,Kmm) 145 146 ztem(jfl) = ts(iafloc,ibfloc,icfl,jp_tem,Kmm) 147 zsal(jfl) = ts(iafloc,ibfloc,icfl,jp_sal,Kmm) 147 148 zrho(jfl) = (rhd(iafloc,ibfloc,icfl)+1)*rau0 148 149
Note: See TracChangeset
for help on using the changeset viewer.