Changeset 2101 for branches/DEV_R1821_Rivers/NEMO/OPA_SRC/TRA/trasbc.F90

Timestamp:

2010-09-16T16:05:37+02:00 (14 years ago)

Author:

rfurner

Message:

moved calculation of rnf_dep from trasbc to sbc_rnf_init and for vvl sshwzv

File:

• branches/DEV_R1821_Rivers/NEMO/OPA_SRC/TRA/trasbc.F90 (modified) (1 diff)

branches/DEV_R1821_Rivers/NEMO/OPA_SRC/TRA/trasbc.F90

@@ -153 +153 @@
         DO jj=1,jpj  
            DO ji=1,jpi  
-              rnf_dep(ji,jj)=0  
-              DO jk=1,rnf_mod_dep(ji,jj)                          ! recalculates rnf_dep to be the depth  
-                rnf_dep(ji,jj)=rnf_dep(ji,jj)+fse3t(ji,jj,jk)    ! in metres to the bottom of the relevant grid box  
-              ENDDO  
               zdep = 1. / rnf_dep(ji,jj)  
               zse3t= 1. / fse3t(ji,jj,1)