Changeset 15343

Timestamp:

2021-10-07T16:19:16+02:00 (3 years ago)

Author:

hadjt

Message:

Region mean code working with iom_put, without creating nc files.

Location:

NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE

Files:

• DIA/diaregmean.F90 (modified) (7 diffs)
• IOM/iom.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/DIA/diaregmean.F90

@@ -1037 +1037 @@
           tmp_name_iom =  trim(trim("reg_") // trim(tmp_name) // trim('_ave'))
           IF(lwp .AND. verbose) WRITE(numout,*) 'dia_regmean iom_put tmp_name_iom : ',trim(tmp_name_iom)
-          !JT IOM CALL iom_put(trim(tmp_name_iom), zrmet_out )
+          CALL iom_put(trim(tmp_name_iom), zrmet_out )
           zrmet_out(:,:,:) = 0
           zrmet_val = 0
@@ -1051 +1051 @@
           tmp_name_iom =  trim(trim("reg_") // trim(tmp_name) // trim('_tot'))
           IF(lwp .AND. verbose) WRITE(numout,*) 'dia_regmean iom_put tmp_name_iom : ',trim(tmp_name_iom)          
-          !JT IOM CALL iom_put( trim(tmp_name_iom), zrmet_out )
+          CALL iom_put( trim(tmp_name_iom), zrmet_out )
           zrmet_out(:,:,:) = 0
           zrmet_val = 0
@@ -1065 +1065 @@
           tmp_name_iom =  trim(trim("reg_") // trim(tmp_name) // trim('_var'))
           IF(lwp .AND. verbose) WRITE(numout,*) 'dia_regmean iom_put tmp_name_iom : ',trim(tmp_name_iom)          
-          !JT IOM CALL iom_put( trim(tmp_name_iom), zrmet_out )
+          CALL iom_put( trim(tmp_name_iom), zrmet_out )
           zrmet_out(:,:,:) = 0
           zrmet_val = 0
@@ -1079 +1079 @@
           tmp_name_iom =  trim(trim("reg_") // trim(tmp_name) // trim('_cnt'))
           IF(lwp .AND. verbose) WRITE(numout,*) 'dia_regmean iom_put tmp_name_iom : ',trim(tmp_name_iom)          
-          !JT IOM CALL iom_put( trim(tmp_name_iom), zrmet_out )
+          CALL iom_put( trim(tmp_name_iom), zrmet_out )
           zrmet_out(:,:,:) = 0
           zrmet_val = 0
@@ -1093 +1093 @@
           tmp_name_iom =  trim(trim("reg_") // trim(tmp_name) // trim('_reg_id'))
           IF(lwp .AND. verbose) WRITE(numout,*) 'dia_regmean iom_put tmp_name_iom : ',trim(tmp_name_iom)          
-          !JT IOM CALL iom_put( trim(tmp_name_iom), zrmet_out )
+          CALL iom_put( trim(tmp_name_iom), zrmet_out )
           zrmet_out(:,:,:) = 0
           zrmet_val = 0
@@ -1107 +1107 @@
           tmp_name_iom =  trim(trim("reg_") // trim(tmp_name) // trim('_mask_id'))
           IF(lwp .AND. verbose) WRITE(numout,*) 'dia_regmean iom_put tmp_name_iom : ',trim(tmp_name_iom)          
-          !JT IOM CALL iom_put( trim(tmp_name_iom), zrmet_out )
+          CALL iom_put( trim(tmp_name_iom), zrmet_out )
           zrmet_out(:,:,:) = 0
           zrmet_val = 0
@@ -1121 +1121 @@
 
           DO jm = 1,9
-              !JT IOM CALL iom_put( trim(trim("reg_") // trim(tmp_name) // trim('_ave')), dummy_zrmet )
-              !JT IOM CALL iom_put( trim(trim("reg_") // trim(tmp_name) // trim('_tot')), dummy_zrmet )
-              !JT IOM CALL iom_put( trim(trim("reg_") // trim(tmp_name) // trim('_var')), dummy_zrmet )
-              !JT IOM CALL iom_put( trim(trim("reg_") // trim(tmp_name) // trim('_cnt')), dummy_zrmet )
-              !JT IOM CALL iom_put( trim(trim("reg_") // trim(tmp_name) // trim('_reg_id')), dummy_zrmet )
-              !JT IOM CALL iom_put( trim(trim("reg_") // trim(tmp_name) // trim('_mask_id')), dummy_zrmet )
+              CALL iom_put( trim(trim("reg_") // trim(tmp_name) // trim('_ave')), dummy_zrmet )
+              CALL iom_put( trim(trim("reg_") // trim(tmp_name) // trim('_tot')), dummy_zrmet )
+              CALL iom_put( trim(trim("reg_") // trim(tmp_name) // trim('_var')), dummy_zrmet )
+              CALL iom_put( trim(trim("reg_") // trim(tmp_name) // trim('_cnt')), dummy_zrmet )
+              CALL iom_put( trim(trim("reg_") // trim(tmp_name) // trim('_reg_id')), dummy_zrmet )
+              CALL iom_put( trim(trim("reg_") // trim(tmp_name) // trim('_mask_id')), dummy_zrmet )
           END DO
     

NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/IOM/iom.F90

@@ -187 +187 @@
       IF (ln_diaregmean) THEN      
         n_regions_output = nn_regions_output
-        IF(lwp) WRITE(numout,*) 'JT IOM_init: n_regions_output , ln_diaregmean =  ', n_regions_output ,ln_diaregmean
+        !IF(lwp) WRITE(numout,*) 'JT IOM_init: n_regions_output , ln_diaregmean =  ', n_regions_output ,ln_diaregmean
          
       ELSE
         n_regions_output = 1
-        IF(lwp) WRITE(numout,*) 'JT IOM_init: n_regions_output , ln_diaregmean =  ', n_regions_output ,ln_diaregmean
+        !IF(lwp) WRITE(numout,*) 'JT IOM_init: n_regions_output , ln_diaregmean =  ', n_regions_output ,ln_diaregmean
       ENDIF
     !JT
@@ -312 +312 @@
 
       !JT
-      !JT CALL iom_set_axis_attr( "region", (/ (REAL(ji,wp), ji=1,n_regions_output) /) )
+      CALL iom_set_axis_attr( "region", (/ (REAL(ji,wp), ji=1,n_regions_output) /) )
       !JT CALL iom_set_axis_attr( "noos", (/ (REAL(ji,wp), ji=1,3) /) )
       !JT