Changeset 12377 for NEMO/trunk/src/OCE/FLO/flowri.F90
- Timestamp:
- 2020-02-12T15:39:06+01:00 (4 years ago)
- Location:
- NEMO/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev @HEAD ext/AGRIF5 ^/vendors/AGRIF/dev_r11615_ENHANCE-04_namelists_as_internalfiles_agrif@HEAD ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL
-
- Property svn:externals
-
NEMO/trunk/src/OCE/FLO/flowri.F90
r11818 r12377 51 51 END FUNCTION flo_wri_alloc 52 52 53 SUBROUTINE flo_wri( kt )53 SUBROUTINE flo_wri( kt, Kmm ) 54 54 !!--------------------------------------------------------------------- 55 55 !! *** ROUTINE flo_wri *** … … 64 64 !!---------------------------------------------------------------------- 65 65 !! * Arguments 66 INTEGER :: kt ! time step 66 INTEGER, INTENT(in) :: kt ! time step 67 INTEGER, INTENT(in) :: Kmm ! time level index 67 68 68 69 !! * Local declarations … … 116 117 zlon(jfl) = (1.-zafl)*(1.-zbfl)*glamt(iafloc ,ibfloc ) + (1.-zafl) * zbfl * glamt(iafloc ,ib1floc) & 117 118 + zafl *(1.-zbfl)*glamt(ia1floc,ibfloc ) + zafl * zbfl * glamt(ia1floc,ib1floc) 118 zdep(jfl) = (1.-zcfl)*gdepw _n(iafloc,ibfloc,icfl ) + zcfl * gdepw_n(iafloc,ibfloc,ic1fl)119 zdep(jfl) = (1.-zcfl)*gdepw(iafloc,ibfloc,icfl ,Kmm) + zcfl * gdepw(iafloc,ibfloc,ic1fl,Kmm) 119 120 120 121 !save temperature, salinity and density at this position 121 ztem(jfl) = ts n(iafloc,ibfloc,icfl,jp_tem)122 zsal (jfl) = ts n(iafloc,ibfloc,icfl,jp_sal)122 ztem(jfl) = ts(iafloc,ibfloc,icfl,jp_tem,Kmm) 123 zsal (jfl) = ts(iafloc,ibfloc,icfl,jp_sal,Kmm) 123 124 zrho (jfl) = (rhd(iafloc,ibfloc,icfl)+1)*rau0 124 125 … … 137 138 zlon(jfl) = (1.-zafl)*(1.-zbfl)*glamt(iafloc ,ibfloc ) + (1.-zafl) * zbfl * glamt(iafloc ,ib1floc) & 138 139 + zafl *(1.-zbfl)*glamt(ia1floc,ibfloc ) + zafl * zbfl * glamt(ia1floc,ib1floc) 139 zdep(jfl) = (1.-zcfl)*gdepw _n(iafloc,ibfloc,icfl ) + zcfl * gdepw_n(iafloc,ibfloc,ic1fl)140 141 ztem(jfl) = ts n(iafloc,ibfloc,icfl,jp_tem)142 zsal(jfl) = ts n(iafloc,ibfloc,icfl,jp_sal)140 zdep(jfl) = (1.-zcfl)*gdepw(iafloc,ibfloc,icfl ,Kmm) + zcfl * gdepw(iafloc,ibfloc,ic1fl,Kmm) 141 142 ztem(jfl) = ts(iafloc,ibfloc,icfl,jp_tem,Kmm) 143 zsal(jfl) = ts(iafloc,ibfloc,icfl,jp_sal,Kmm) 143 144 zrho(jfl) = (rhd(iafloc,ibfloc,icfl)+1)*rau0 144 145
Note: See TracChangeset
for help on using the changeset viewer.