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

Timestamp:

2016-07-01T18:02:45+02:00 (8 years ago)

Author:

cbricaud

Message:

clean in coarsening branch

File:

• branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/LDF/ldfslp.F90 (modified) (1 diff)

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

@@ -464 +464 @@
       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 )
       CALL wrk_dealloc( jpi,jpj,     zhmlpu, zhmlpv)