Changeset 5601 for branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/LDF/ldfslp.F90

Timestamp:

2015-07-16T11:04:29+02:00 (9 years ago)

Author:

cbricaud

Message:

commit changes/bugfix/... for crs ; ok with time-splitting/fixed volume

File:

• branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/LDF/ldfslp.F90 (modified) (3 diffs)

branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/LDF/ldfslp.F90

@@ -35 +35 @@
    USE timing         ! Timing
    USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)
+   USE iom
 
    IMPLICIT NONE
@@ -230 +231 @@
          END DO
          CALL lbc_lnk( zwz, 'U', -1. )   ;   CALL lbc_lnk( zww, 'V', -1. )      ! lateral boundary conditions
+
          !
          !                                            !* horizontal Shapiro filter
@@ -445 +447 @@
 
       ENDIF
+
+      CALL iom_put("zgru",zgru)
+      CALL iom_put("zgrv",zgrv)
+      CALL iom_put("zdzr",zdzr)
+      CALL iom_put("zwz",zwz)
+      CALL iom_put("zww",zww)
+      CALL iom_put("uslp",uslp)
+      CALL iom_put("vslp",vslp)
       
       CALL wrk_dealloc( jpi,jpj,jpk, zwz, zww, zdzr, zgru, zgrv )