- Timestamp:
- 2015-10-31T08:40:45+01:00 (9 years ago)
- Location:
- branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC/FLO
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC/FLO/flo4rk.F90
r5836 r5845 29 29 REAL(wp), DIMENSION (3) :: scoef1 = (/ 0.5 , 0.5 , 1.0 /) ! 30 30 31 !! * Substitutions32 # include "domzgr_substitute.h90"33 31 !!---------------------------------------------------------------------- 34 32 !! NEMO/OPA 3.3 , NEMO Consortium (2010) … … 436 434 & ( tcoef1(ki) * wb(iidw(jfl,jind1),ijdw(jfl,jind2),ikdw(jfl,jind3))+ & 437 435 & tcoef2(ki) * wn(iidw(jfl,jind1),ijdw(jfl,jind2),ikdw(jfl,jind3)) ) & 438 & / fse3w(iidw(jfl,jind1),ijdw(jfl,jind2),ikdw(jfl,jind3))436 & / e3w_n(iidw(jfl,jind1),ijdw(jfl,jind2),ikdw(jfl,jind3)) 439 437 END DO 440 438 END DO -
branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC/FLO/floblk.F90
r5836 r5845 23 23 PUBLIC flo_blk ! routine called by floats.F90 24 24 25 !! * Substitutions26 # include "domzgr_substitute.h90"27 25 !!---------------------------------------------------------------------- 28 26 !! NEMO/OPA 3.3 , NEMO Consortium (2010) … … 118 116 119 117 ! compute the transport across the mesh where the float is. 120 !!bug (gm) change e3t into fse3. but never checked121 zsurfx(1) = e2u(iiloc(jfl)-1,ijloc(jfl) ) * fse3u(iiloc(jfl)-1,ijloc(jfl) ,-ikl(jfl))122 zsurfx(2) = e2u(iiloc(jfl) ,ijloc(jfl) ) * fse3u(iiloc(jfl) ,ijloc(jfl) ,-ikl(jfl))123 zsurfy(1) = e1v(iiloc(jfl) ,ijloc(jfl)-1) * fse3v(iiloc(jfl) ,ijloc(jfl)-1,-ikl(jfl))124 zsurfy(2) = e1v(iiloc(jfl) ,ijloc(jfl) ) * fse3v(iiloc(jfl) ,ijloc(jfl) ,-ikl(jfl))118 !!bug (gm) change e3t into e3. but never checked 119 zsurfx(1) = e2u(iiloc(jfl)-1,ijloc(jfl) ) * e3u_n(iiloc(jfl)-1,ijloc(jfl) ,-ikl(jfl)) 120 zsurfx(2) = e2u(iiloc(jfl) ,ijloc(jfl) ) * e3u_n(iiloc(jfl) ,ijloc(jfl) ,-ikl(jfl)) 121 zsurfy(1) = e1v(iiloc(jfl) ,ijloc(jfl)-1) * e3v_n(iiloc(jfl) ,ijloc(jfl)-1,-ikl(jfl)) 122 zsurfy(2) = e1v(iiloc(jfl) ,ijloc(jfl) ) * e3v_n(iiloc(jfl) ,ijloc(jfl) ,-ikl(jfl)) 125 123 126 124 ! for a isobar float zsurfz is put to zero. The vertical velocity will be zero too. 127 125 zsurfz = e1e2t(iiloc(jfl),ijloc(jfl)) 128 zvol = zsurfz * fse3t(iiloc(jfl),ijloc(jfl),-ikl(jfl))126 zvol = zsurfz * e3t_n(iiloc(jfl),ijloc(jfl),-ikl(jfl)) 129 127 130 128 ! -
branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC/FLO/flodom.F90
r5836 r5845 37 37 REAL(wp), ALLOCATABLE, DIMENSION(:) :: zgifl, zgjfl, zgkfl ! distances in indexes 38 38 39 !! * Substitutions40 # include "domzgr_substitute.h90"41 39 !!---------------------------------------------------------------------- 42 40 !! NEMO/OPA 3.3 , NEMO Consortium (2010) … … 176 174 ihtest(jfl) = ihtest(jfl)+1 177 175 DO jk = 1, jpk-1 178 IF( ( fsdepw(ji,jj,jk) <= flzz(jfl)) .AND. (fsdepw(ji,jj,jk+1) > flzz(jfl)) ) THEN176 IF( (gdepw_n(ji,jj,jk) <= flzz(jfl)) .AND. (gdepw_n(ji,jj,jk+1) > flzz(jfl)) ) THEN 179 177 ikmfl(jfl) = jk 180 178 ivtest(jfl) = ivtest(jfl) + 1 … … 238 236 zgifl(jfl)= (iimfl(jfl)-0.5) + zdxab/e1u(iimfl(jfl)-1,ijmfl(jfl)) + (mig(1)-jpizoom) 239 237 zgjfl(jfl)= (ijmfl(jfl)-0.5) + zdyad/e2v(iimfl(jfl),ijmfl(jfl)-1) + (mjg(1)-jpjzoom) 240 zgkfl(jfl) = (( fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)+1) - flzz(jfl) )* ikmfl(jfl)) &241 & / ( fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)+1) &242 & - fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl) ) ) &243 & + (( flzz(jfl)- fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)) ) *(ikmfl(jfl)+1)) &244 & / ( fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)+1) &245 & - fsdepw(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)) )238 zgkfl(jfl) = (( gdepw_n(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)+1) - flzz(jfl) )* ikmfl(jfl)) & 239 & / ( gdepw_n(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)+1) & 240 & - gdepw_n(iimfl(jfl),ijmfl(jfl),ikmfl(jfl) ) ) & 241 & + (( flzz(jfl)-gdepw_n(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)) ) *(ikmfl(jfl)+1)) & 242 & / ( gdepw_n(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)+1) & 243 & - gdepw_n(iimfl(jfl),ijmfl(jfl),ikmfl(jfl)) ) 246 244 ELSE 247 245 zgifl(jfl) = 0.e0 -
branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC/FLO/florst.F90
r5836 r5845 26 26 INTEGER, ALLOCATABLE, DIMENSION(:) :: iperproc ! 1D workspace 27 27 28 !! * Substitutions29 # include "domzgr_substitute.h90"30 28 !!---------------------------------------------------------------------- 31 29 !! NEMO/OPA 3.2 , LODYC-IPSL (2009) … … 52 50 !! ** Purpose : 53 51 !! 54 !!55 52 !! 56 53 !! ** Method : The frequency of ??? is nwritefl 57 54 !! 58 55 !!---------------------------------------------------------------------- 59 !! * Arguments60 56 INTEGER :: kt ! time step 61 62 !! * Local declarations 57 ! 63 58 CHARACTER (len=80) :: clname ! restart filename 64 59 INTEGER :: ic , jc , jpn ,jfl ! temporary integer … … 125 120 ENDIF 126 121 ENDIF 127 122 ! 128 123 ENDIF 129 124 ! 130 125 END SUBROUTINE flo_rst 131 132 126 133 127 # else -
branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC/FLO/flowri.F90
r5836 r5845 40 40 REAL(wp), ALLOCATABLE, DIMENSION(:) :: ztem , zsal, zrho ! 2D workspace 41 41 42 !! * Substitutions43 # include "domzgr_substitute.h90"44 42 !!---------------------------------------------------------------------- 45 43 !! NEMO/OPA 3.2 , LODYC-IPSL (2009) … … 125 123 zlon(jfl) = (1.-zafl)*(1.-zbfl)*glamt(iafloc ,ibfloc ) + (1.-zafl) * zbfl * glamt(iafloc ,ib1floc) & 126 124 + zafl *(1.-zbfl)*glamt(ia1floc,ibfloc ) + zafl * zbfl * glamt(ia1floc,ib1floc) 127 zdep(jfl) = (1.-zcfl)* fsdepw(iafloc,ibfloc,icfl ) + zcfl * fsdepw(iafloc,ibfloc,ic1fl)125 zdep(jfl) = (1.-zcfl)*gdepw_n(iafloc,ibfloc,icfl ) + zcfl * gdepw_n(iafloc,ibfloc,ic1fl) 128 126 129 127 !save temperature, salinity and density at this position … … 146 144 zlon(jfl) = (1.-zafl)*(1.-zbfl)*glamt(iafloc ,ibfloc ) + (1.-zafl) * zbfl * glamt(iafloc ,ib1floc) & 147 145 + zafl *(1.-zbfl)*glamt(ia1floc,ibfloc ) + zafl * zbfl * glamt(ia1floc,ib1floc) 148 zdep(jfl) = (1.-zcfl)* fsdepw(iafloc,ibfloc,icfl ) + zcfl * fsdepw(iafloc,ibfloc,ic1fl)146 zdep(jfl) = (1.-zcfl)*gdepw_n(iafloc,ibfloc,icfl ) + zcfl * gdepw_n(iafloc,ibfloc,ic1fl) 149 147 150 148 ztem(jfl) = tsn(iafloc,ibfloc,icfl,jp_tem)
Note: See TracChangeset
for help on using the changeset viewer.