- Timestamp:
- 2021-10-07T16:19:16+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.4_CO9_shelf_climate/src/OCE/DIA/diaregmean.F90
r15342 r15343 1037 1037 tmp_name_iom = trim(trim("reg_") // trim(tmp_name) // trim('_ave')) 1038 1038 IF(lwp .AND. verbose) WRITE(numout,*) 'dia_regmean iom_put tmp_name_iom : ',trim(tmp_name_iom) 1039 !JT IOMCALL iom_put(trim(tmp_name_iom), zrmet_out )1039 CALL iom_put(trim(tmp_name_iom), zrmet_out ) 1040 1040 zrmet_out(:,:,:) = 0 1041 1041 zrmet_val = 0 … … 1051 1051 tmp_name_iom = trim(trim("reg_") // trim(tmp_name) // trim('_tot')) 1052 1052 IF(lwp .AND. verbose) WRITE(numout,*) 'dia_regmean iom_put tmp_name_iom : ',trim(tmp_name_iom) 1053 !JT IOMCALL iom_put( trim(tmp_name_iom), zrmet_out )1053 CALL iom_put( trim(tmp_name_iom), zrmet_out ) 1054 1054 zrmet_out(:,:,:) = 0 1055 1055 zrmet_val = 0 … … 1065 1065 tmp_name_iom = trim(trim("reg_") // trim(tmp_name) // trim('_var')) 1066 1066 IF(lwp .AND. verbose) WRITE(numout,*) 'dia_regmean iom_put tmp_name_iom : ',trim(tmp_name_iom) 1067 !JT IOMCALL iom_put( trim(tmp_name_iom), zrmet_out )1067 CALL iom_put( trim(tmp_name_iom), zrmet_out ) 1068 1068 zrmet_out(:,:,:) = 0 1069 1069 zrmet_val = 0 … … 1079 1079 tmp_name_iom = trim(trim("reg_") // trim(tmp_name) // trim('_cnt')) 1080 1080 IF(lwp .AND. verbose) WRITE(numout,*) 'dia_regmean iom_put tmp_name_iom : ',trim(tmp_name_iom) 1081 !JT IOMCALL iom_put( trim(tmp_name_iom), zrmet_out )1081 CALL iom_put( trim(tmp_name_iom), zrmet_out ) 1082 1082 zrmet_out(:,:,:) = 0 1083 1083 zrmet_val = 0 … … 1093 1093 tmp_name_iom = trim(trim("reg_") // trim(tmp_name) // trim('_reg_id')) 1094 1094 IF(lwp .AND. verbose) WRITE(numout,*) 'dia_regmean iom_put tmp_name_iom : ',trim(tmp_name_iom) 1095 !JT IOMCALL iom_put( trim(tmp_name_iom), zrmet_out )1095 CALL iom_put( trim(tmp_name_iom), zrmet_out ) 1096 1096 zrmet_out(:,:,:) = 0 1097 1097 zrmet_val = 0 … … 1107 1107 tmp_name_iom = trim(trim("reg_") // trim(tmp_name) // trim('_mask_id')) 1108 1108 IF(lwp .AND. verbose) WRITE(numout,*) 'dia_regmean iom_put tmp_name_iom : ',trim(tmp_name_iom) 1109 !JT IOMCALL iom_put( trim(tmp_name_iom), zrmet_out )1109 CALL iom_put( trim(tmp_name_iom), zrmet_out ) 1110 1110 zrmet_out(:,:,:) = 0 1111 1111 zrmet_val = 0 … … 1121 1121 1122 1122 DO jm = 1,9 1123 !JT IOMCALL iom_put( trim(trim("reg_") // trim(tmp_name) // trim('_ave')), dummy_zrmet )1124 !JT IOMCALL iom_put( trim(trim("reg_") // trim(tmp_name) // trim('_tot')), dummy_zrmet )1125 !JT IOMCALL iom_put( trim(trim("reg_") // trim(tmp_name) // trim('_var')), dummy_zrmet )1126 !JT IOMCALL iom_put( trim(trim("reg_") // trim(tmp_name) // trim('_cnt')), dummy_zrmet )1127 !JT IOMCALL iom_put( trim(trim("reg_") // trim(tmp_name) // trim('_reg_id')), dummy_zrmet )1128 !JT IOMCALL iom_put( trim(trim("reg_") // trim(tmp_name) // trim('_mask_id')), dummy_zrmet )1123 CALL iom_put( trim(trim("reg_") // trim(tmp_name) // trim('_ave')), dummy_zrmet ) 1124 CALL iom_put( trim(trim("reg_") // trim(tmp_name) // trim('_tot')), dummy_zrmet ) 1125 CALL iom_put( trim(trim("reg_") // trim(tmp_name) // trim('_var')), dummy_zrmet ) 1126 CALL iom_put( trim(trim("reg_") // trim(tmp_name) // trim('_cnt')), dummy_zrmet ) 1127 CALL iom_put( trim(trim("reg_") // trim(tmp_name) // trim('_reg_id')), dummy_zrmet ) 1128 CALL iom_put( trim(trim("reg_") // trim(tmp_name) // trim('_mask_id')), dummy_zrmet ) 1129 1129 END DO 1130 1130
Note: See TracChangeset
for help on using the changeset viewer.