Changeset 5111 for branches/2015/dev_r5094_UKMO_ISFCLEAN/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso.F90

Timestamp:

2015-03-02T16:30:57+01:00 (9 years ago)

Author:

mathiot

Message:

add some missing if ln_isfcav, test of option compatibility with ln_isfcav + small documentation

File:

• branches/2015/dev_r5094_UKMO_ISFCLEAN/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso.F90 (modified) (2 diffs)

branches/2015/dev_r5094_UKMO_ISFCLEAN/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso.F90

@@ -187 +187 @@
             END DO
          END DO
-            ! surface boundary condition: zdkt(jk=1)=zdkt(jk=2)
+         ! surface boundary condition: zdkt(jk=1)=zdkt(jk=2)
          zdk1t(:,:,1) = ( ptb(:,:,1,jn  ) - ptb(:,:,2,jn) ) * wmask(:,:,2)
          zdkt (:,:,1) = zdk1t(:,:,1)
@@ -200 +200 @@
          END IF
 
-            ! 2. Horizontal fluxes
-            ! --------------------   
+         ! 2. Horizontal fluxes
+         ! --------------------   
          DO jk = 1, jpkm1
             DO jj = 1 , jpjm1