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

Timestamp:

2017-12-04T18:06:36+01:00 (7 years ago)

Author:

cbricaud

Message:

crs improvments

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

@@ -242 +242 @@
       IF( lk_crs     )      CALL crs_fld( kstp )         ! ocean model: online field coarsening & output
 
-      CALL wrk_alloc( jpi, jpj, jpk, zrhop, zrhd )
-      CALL eos( tsn, zrhd, zrhop, fsdept_n(:,:,:) )                 ! now in situ and potential density
-      zrhop(:,:,jpk) = 0._wp
-      CALL iom_put( 'rhop', zrhop )
-
-      CALL wrk_dealloc( jpi, jpj, jpk, zrhop, zrhd )
-
 #if defined key_top
       !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
@@ -256 +249 @@
                          CALL dom_grid_crs
 
-                         CALL zdf_mxl_crs(kstp)
                          CALL eos_crs ( tsn_crs, rhd_crs, rhop_crs, fsdept_crs(:,:,:) ) ! now in situ density for hpg computation