Changeset 8076 for branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_diag_slice.F90

Timestamp:

2017-05-26T10:17:21+02:00 (7 years ago)

Author:

marc

Message:

Removed wrk_alloc and wrk_dealloc from bio_medusa_* routines

File:

• branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_diag_slice.F90 (modified) (9 diffs)

branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_diag_slice.F90

@@ -48 +48 @@
                                    zn_co2_flx, zn_dms_srf
       USE trc,               ONLY: med_diag
-      USE wrk_nemo,          ONLY: wrk_dealloc
 
       !! The vertical level
@@ -85 +84 @@
          IF( med_diag%ATM_PCO2%dgsave ) THEN
             CALL iom_put( "ATM_PCO2"  , f_pco2a2d )
-            CALL wrk_dealloc( jpi, jpj,    f_pco2a2d  )
+            DEALLOCATE( f_pco2a2d )
          ENDIF
          IF( med_diag%OCN_PH%dgsave ) THEN
@@ -93 +92 @@
          IF( med_diag%OCN_PCO2%dgsave ) THEN
             CALL iom_put( "OCN_PCO2"  , f_pco2w2d )
-            CALL wrk_dealloc( jpi, jpj,   f_pco2w2d   )
+            DEALLOCATE( f_pco2w2d )
          ENDIF
          IF( med_diag%OCNH2CO3%dgsave ) THEN
@@ -109 +108 @@
          IF( med_diag%CO2FLUX%dgsave ) THEN
             CALL iom_put( "CO2FLUX"  , f_co2flux2d )
-            CALL wrk_dealloc( jpi, jpj,   f_co2flux2d   )
+            DEALLOCATE( f_co2flux2d )
          ENDIF
          !! 
@@ -128 +127 @@
             CO2Flux_out_cpl = zn_co2_flx
          ENDIF
-         CALL wrk_dealloc( jpi, jpj,   fgco2   )
+         DEALLOCATE( fgco2 )
          !! ---
          IF( med_diag%OM_CAL%dgsave ) THEN
@@ -138 +137 @@
          IF( med_diag%TCO2%dgsave ) THEN
             CALL iom_put( "TCO2"  , f_TDIC2d )
-            CALL wrk_dealloc( jpi, jpj,   f_TDIC2d   )
+            DEALLOCATE( f_TDIC2d )
          ENDIF
          IF( med_diag%TALK%dgsave ) THEN
             CALL iom_put( "TALK"  , f_TALK2d )
-            CALL wrk_dealloc( jpi, jpj,    f_TALK2d  )
+            DEALLOCATE( f_TALK2d )
          ENDIF
          IF( med_diag%KW660%dgsave ) THEN
             CALL iom_put( "KW660"  , f_kw6602d )
-            CALL wrk_dealloc( jpi, jpj,   f_kw6602d   )
+            DEALLOCATE( f_kw6602d )
          ENDIF
          IF( med_diag%ATM_PP0%dgsave ) THEN
             CALL iom_put( "ATM_PP0"  , f_pp02d )
-            CALL wrk_dealloc( jpi, jpj,    f_pp02d  )
+            DEALLOCATE( f_pp02d )
          ENDIF
          IF( med_diag%O2FLUX%dgsave ) THEN
             CALL iom_put( "O2FLUX"  , f_o2flux2d )
-            CALL wrk_dealloc( jpi, jpj,   f_o2flux2d   )
+            DEALLOCATE( f_o2flux2d )
          ENDIF
          IF( med_diag%O2SAT%dgsave ) THEN
             CALL iom_put( "O2SAT"  , f_o2sat2d )
-            CALL wrk_dealloc( jpi, jpj,  f_o2sat2d    )
+            DEALLOCATE( f_o2sat2d )
          ENDIF
          IF( med_diag%CAL_CCD%dgsave ) THEN
@@ -175 +174 @@
                   DMS_out_cpl = zn_dms_srf
                ENDIF
-               CALL wrk_dealloc( jpi, jpj,   dms_surf2d   ) 
+               DEALLOCATE( dms_surf2d ) 
             ENDIF
             IF( med_diag%DMS_ANDR%dgsave ) THEN
                CALL iom_put( "DMS_ANDR"  , dms_andr2d )
-               CALL wrk_dealloc( jpi, jpj,   dms_andr2d   )
+               DEALLOCATE( dms_andr2d )
             ENDIF
             IF( med_diag%DMS_SIMO%dgsave ) THEN
                CALL iom_put( "DMS_SIMO"  , dms_simo2d )
-               CALL wrk_dealloc( jpi, jpj,    dms_simo2d  )
+               DEALLOCATE( dms_simo2d )
             ENDIF
             IF( med_diag%DMS_ARAN%dgsave ) THEN
                CALL iom_put( "DMS_ARAN"  , dms_aran2d )
-               CALL wrk_dealloc( jpi, jpj,   dms_aran2d   )
+               DEALLOCATE( dms_aran2d )
             ENDIF
             IF( med_diag%DMS_HALL%dgsave ) THEN
                CALL iom_put( "DMS_HALL"  , dms_hall2d )
-               CALL wrk_dealloc( jpi, jpj,   dms_hall2d   )
+               DEALLOCATE( dms_hall2d )
             ENDIF
          ENDIF
@@ -197 +196 @@
          IF( med_diag%ATM_XCO2%dgsave ) THEN
             CALL iom_put( "ATM_XCO2"  ,   f_xco2a_2d      )
-            CALL wrk_dealloc( jpi, jpj,   f_xco2a_2d      )
+            DEALLOCATE( f_xco2a_2d )
          ENDIF
          IF( med_diag%OCN_FCO2%dgsave ) THEN
             CALL iom_put( "OCN_FCO2"  ,   f_fco2w_2d      )
-            CALL wrk_dealloc( jpi, jpj,   f_fco2w_2d      )
+            DEALLOCATE( f_fco2w_2d )
          ENDIF
          IF( med_diag%ATM_FCO2%dgsave ) THEN
             CALL iom_put( "ATM_FCO2"  ,   f_fco2a_2d      )
-            CALL wrk_dealloc( jpi, jpj,   f_fco2a_2d      )
+            DEALLOCATE( f_fco2a_2d )
          ENDIF
          IF( med_diag%OCN_RHOSW%dgsave ) THEN
             CALL iom_put( "OCN_RHOSW"  ,  f_ocnrhosw_2d   )
-            CALL wrk_dealloc( jpi, jpj,   f_ocnrhosw_2d   )
+            DEALLOCATE( f_ocnrhosw_2d )
          ENDIF
          IF( med_diag%OCN_SCHCO2%dgsave ) THEN
             CALL iom_put( "OCN_SCHCO2"  , f_ocnschco2_2d  )
-            CALL wrk_dealloc( jpi, jpj,   f_ocnschco2_2d  )
+            DEALLOCATE( f_ocnschco2_2d )
          ENDIF
          IF( med_diag%OCN_KWCO2%dgsave ) THEN
             CALL iom_put( "OCN_KWCO2"  ,  f_ocnkwco2_2d   )
-            CALL wrk_dealloc( jpi, jpj,   f_ocnkwco2_2d   )
+            DEALLOCATE( f_ocnkwco2_2d )
          ENDIF
          IF( med_diag%OCN_K0%dgsave ) THEN
             CALL iom_put( "OCN_K0"  ,     f_ocnk0_2d      )
-            CALL wrk_dealloc( jpi, jpj,   f_ocnk0_2d      )
+            DEALLOCATE( f_ocnk0_2d )
          ENDIF
          IF( med_diag%CO2STARAIR%dgsave ) THEN
             CALL iom_put( "CO2STARAIR"  , f_co2starair_2d )
-            CALL wrk_dealloc( jpi, jpj,   f_co2starair_2d )
+            DEALLOCATE( f_co2starair_2d )
          ENDIF
          IF( med_diag%OCN_DPCO2%dgsave ) THEN
             CALL iom_put( "OCN_DPCO2"  ,  f_ocndpco2_2d   )
-            CALL wrk_dealloc( jpi, jpj,   f_ocndpco2_2d   )
+            DEALLOCATE( f_ocndpco2_2d )
          ENDIF
 # endif                     
@@ -386 +385 @@
          IF( med_diag%RR_1000%dgsave ) THEN
             CALL iom_put( "RR_1000"  , ffastca2d )
-            CALL wrk_dealloc( jpi, jpj,  ffastca2d    )
+            DEALLOCATE( ffastca2d )
          ENDIF
          IF( med_diag%SDC_1000%dgsave ) THEN