Changeset 7204 for branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/step.F90

Timestamp:

2016-11-08T08:58:31+01:00 (7 years ago)

Author:

cbricaud

Message:

commit modifications in CRS branch

File:

• branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/step.F90 (modified) (2 diffs)

branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/step.F90

@@ -167 +167 @@
                          CALL ldf_slp_grif( kstp )
          ELSE
-                         CALL iom_put("rabt",rab_n(:,:,:,jp_tem))
-                         CALL iom_put("rabs",rab_n(:,:,:,jp_sal))
-                         CALL iom_put("rhd",rhd)
-                         CALL iom_put("rn2b",rn2b)
-                         CALL iom_put("rn2",rn2)
                          CALL ldf_slp( kstp, rhd, rn2b )     ! before slope for Madec operator
          ENDIF
@@ -259 +254 @@
                          CALL zdf_mxl_crs(kstp)
                          CALL eos_crs ( tsn_crs, rhd_crs, rhop_crs, fsdept_crs(:,:,:) ) ! now in situ density for hpg computation
-                         CALL iom_put("rhop_crs",rhop_crs)
-                         CALL iom_put("rhd_crs",rhd_crs)
 
          IF( ln_zps )    CALL zps_hde_crs( kstp, jpts, tsb_crs, gtsu_crs, gtsv_crs, rhd_crs, gru_crs, grv_crs )