Changeset 5937


Ignore:
Timestamp:
2015-11-27T13:58:10+01:00 (5 years ago)
Author:
jpalmier
Message:

JPALM —27-11-2015 — MEDUSA-TOP debugg in MEDUSA iom_use adapt

Location:
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

    r5931 r5937  
    6969# if defined key_iomput 
    7070      USE iom 
    71       USE trc_nam_dia         ! JPALM 13-11-2015 -- if iom_use for diag 
    72       USE trc_nam_iom_medusa  ! JPALM 13-11-2015 -- if iom_use for diag 
     71      !!USE trc_nam_dia         ! JPALM 13-11-2015 -- if iom_use for diag 
     72      !!USE trc_nam_iom_medusa  ! JPALM 13-11-2015 -- if iom_use for diag 
    7373# endif 
    7474# if defined key_roam 
     
    169169      !! primary production and chl related quantities       
    170170      REAL(wp)                     ::    fthetan,faln,fchn1,fchn,fjln,fprn,frn 
    171       REAL(wp), DIMENSION(jpi,jpj) ::    fprn2d 
    172171      REAL(wp)                     ::    fthetad,fald,fchd1,fchd,fjld,fprd,frd 
    173       REAL(wp), DIMENSION(jpi,jpj) ::    fprd2d 
    174172      !! AXY (03/02/11): add in Liebig terms 
    175173      REAL(wp) ::    fpnlim, fpdlim 
     
    214212      !! mortality/Remineralisation (defunct parameter "fz" removed) 
    215213      REAL(wp) ::    fdpn,fdpd,fdpds,fdzmi,fdzme,fdd 
    216       REAL(wp), DIMENSION(jpi,jpj)  ::    fdpn2d,fdpd2d 
    217214# if defined key_roam 
    218215      REAL(wp) ::    fddc 
     
    36153612                  ENDIF 
    36163613                  IF( med_diag%TOTRG_SI%dgsave ) THEN 
    3617                       fregensi2d() = fregensi2d() + fregensi 
     3614                      fregensi2d(ji,jj) = fregensi2d(ji,jj) + fregensi 
    36183615                  ENDIF 
    36193616                !!  
     
    41424139            endif 
    41434140         !! CLOSE horizontal loops 
    4144          END DO 
    4145          END DO 
     4141         ENDDO 
     4142         ENDDO 
    41464143         !! 
    41474144             IF( lk_iomput  .AND.  .NOT.  ln_diatrc  ) THEN 
     
    42904287                     ENDIF                   
    42914288                 ELSE IF (jk.eq.i0150) THEN 
    4292                      IF( med_diag%BASSIN_01%dgsave ) THEN 
    4293                          CALL iom_put( "BASSIN_01"  , fprn2d ) 
    4294                      ENDIF 
    4295                      IF( med_diag%BASSIN_02%dgsave ) THEN 
    4296                          CALL iom_put( "BASSIN_02"  , fdpn22d ) 
    4297                      ENDIF 
    4298                      IF( med_diag%BASSIN_03%dgsave ) THEN 
    4299                          CALL iom_put( "BASSIN_03"  , fdpn2d ) 
    4300                      ENDIF 
    4301                      IF( med_diag%BASSIN_04%dgsave ) THEN 
    4302                          CALL iom_put( "BASSIN_04"  , fgmipn2d ) 
    4303                      ENDIF 
    4304                      IF( med_diag%BASSIN_05%dgsave ) THEN 
    4305                          CALL iom_put( "BASSIN_05"  , fgmepn2d ) 
    4306                      ENDIF 
    4307                      IF( med_diag%BASSIN_06%dgsave ) THEN 
    4308                          CALL iom_put( "BASSIN_06"  , fprd2d ) 
    4309                      ENDIF 
    4310                      IF( med_diag%BASSIN_07%dgsave ) THEN 
    4311                          CALL iom_put( "BASSIN_07"  , fdpd22d ) 
    4312                      ENDIF 
    4313                      IF( med_diag%BASSIN_08%dgsave ) THEN 
    4314                          CALL iom_put( "BASSIN_08"  , fdpd2d ) 
    4315                      ENDIF 
    4316                      IF( med_diag%BASSIN_09%dgsave ) THEN 
    4317                          CALL iom_put( "BASSIN_09"  , fgmepd2d ) 
    4318                      ENDIF 
    4319                      IF( med_diag%BASSIN_10%dgsave ) THEN 
    4320                          CALL iom_put( "BASSIN_10"  , fgmid2d ) 
    4321                      ENDIF 
    4322                      IF( med_diag%BASSIN_11%dgsave ) THEN 
    4323                          CALL iom_put( "BASSIN_11"  , gmidc2d ) 
    4324                      ENDIF 
    4325                      IF( med_diag%BASSIN_12%dgsave ) THEN 
    4326                          CALL iom_put( "BASSIN_12"  , zimesn2d ) 
    4327                      ENDIF 
    4328                      IF( med_diag%BASSIN_13%dgsave ) THEN 
    4329                          CALL iom_put( "BASSIN_13"  , zimesd2d ) 
    4330                      ENDIF 
    4331                      IF( med_diag%BASSIN_14%dgsave ) THEN 
    4332                          CALL iom_put( "BASSIN_14"  , zimesc2d ) 
    4333                      ENDIF 
    4334                      IF( med_diag%BASSIN_15%dgsave ) THEN 
    4335                          CALL iom_put( "BASSIN_15"  , zimesdc2d ) 
    4336                      ENDIF 
    4337                      IF( med_diag%BASSIN_16%dgsave ) THEN 
    4338                          CALL iom_put( "BASSIN_16"  , ziexcr2d ) 
    4339                      ENDIF 
    4340                      IF( med_diag%BASSIN_17%dgsave ) THEN 
    4341                          CALL iom_put( "BASSIN_17"  , ziresp2d ) 
    4342                      ENDIF 
    4343                      IF( med_diag%BASSIN_18%dgsave ) THEN 
    4344                          CALL iom_put( "BASSIN_18"  , zigrow2d ) 
    4345                      ENDIF 
    4346                      IF( med_diag%BASSIN_19%dgsave ) THEN 
    4347                          CALL iom_put( "BASSIN_19"  , fdzmi22d ) 
    4348                      ENDIF 
    4349                      IF( med_diag%BASSIN_20%dgsave ) THEN 
    4350                          CALL iom_put( "BASSIN_20"  , fdzmi2d ) 
    4351                      ENDIF 
    4352                      IF( med_diag%BASSIN_21%dgsave ) THEN 
    4353                          CALL iom_put( "BASSIN_21"  , fgmezmi2d ) 
    4354                      ENDIF 
    4355                      IF( med_diag%BASSIN_22%dgsave ) THEN 
    4356                          CALL iom_put( "BASSIN_22"  , fgmed2d ) 
    4357                      ENDIF 
    4358                      IF( med_diag%BASSIN_23%dgsave ) THEN 
    4359                          CALL iom_put( "BASSIN_23"  , gmedc2d ) 
    4360                      ENDIF 
    4361                      IF( med_diag%BASSIN_24%dgsave ) THEN 
    4362                          CALL iom_put( "BASSIN_24"  , zemesn2d ) 
     4289                     IF( med_diag%BASIN_01%dgsave ) THEN 
     4290                         CALL iom_put( "BASIN_01"  , fprn2d ) 
     4291                     ENDIF 
     4292                     IF( med_diag%BASIN_02%dgsave ) THEN 
     4293                         CALL iom_put( "BASIN_02"  , fdpn22d ) 
     4294                     ENDIF 
     4295                     IF( med_diag%BASIN_03%dgsave ) THEN 
     4296                         CALL iom_put( "BASIN_03"  , fdpn2d ) 
     4297                     ENDIF 
     4298                     IF( med_diag%BASIN_04%dgsave ) THEN 
     4299                         CALL iom_put( "BASIN_04"  , fgmipn2d ) 
     4300                     ENDIF 
     4301                     IF( med_diag%BASIN_05%dgsave ) THEN 
     4302                         CALL iom_put( "BASIN_05"  , fgmepn2d ) 
     4303                     ENDIF 
     4304                     IF( med_diag%BASIN_06%dgsave ) THEN 
     4305                         CALL iom_put( "BASIN_06"  , fprd2d ) 
     4306                     ENDIF 
     4307                     IF( med_diag%BASIN_07%dgsave ) THEN 
     4308                         CALL iom_put( "BASIN_07"  , fdpd22d ) 
     4309                     ENDIF 
     4310                     IF( med_diag%BASIN_08%dgsave ) THEN 
     4311                         CALL iom_put( "BASIN_08"  , fdpd2d ) 
     4312                     ENDIF 
     4313                     IF( med_diag%BASIN_09%dgsave ) THEN 
     4314                         CALL iom_put( "BASIN_09"  , fgmepd2d ) 
     4315                     ENDIF 
     4316                     IF( med_diag%BASIN_10%dgsave ) THEN 
     4317                         CALL iom_put( "BASIN_10"  , fgmid2d ) 
     4318                     ENDIF 
     4319                     IF( med_diag%BASIN_11%dgsave ) THEN 
     4320                         CALL iom_put( "BASIN_11"  , gmidc2d ) 
     4321                     ENDIF 
     4322                     IF( med_diag%BASIN_12%dgsave ) THEN 
     4323                         CALL iom_put( "BASIN_12"  , zimesn2d ) 
     4324                     ENDIF 
     4325                     IF( med_diag%BASIN_13%dgsave ) THEN 
     4326                         CALL iom_put( "BASIN_13"  , zimesd2d ) 
     4327                     ENDIF 
     4328                     IF( med_diag%BASIN_14%dgsave ) THEN 
     4329                         CALL iom_put( "BASIN_14"  , zimesc2d ) 
     4330                     ENDIF 
     4331                     IF( med_diag%BASIN_15%dgsave ) THEN 
     4332                         CALL iom_put( "BASIN_15"  , zimesdc2d ) 
     4333                     ENDIF 
     4334                     IF( med_diag%BASIN_16%dgsave ) THEN 
     4335                         CALL iom_put( "BASIN_16"  , ziexcr2d ) 
     4336                     ENDIF 
     4337                     IF( med_diag%BASIN_17%dgsave ) THEN 
     4338                         CALL iom_put( "BASIN_17"  , ziresp2d ) 
     4339                     ENDIF 
     4340                     IF( med_diag%BASIN_18%dgsave ) THEN 
     4341                         CALL iom_put( "BASIN_18"  , zigrow2d ) 
     4342                     ENDIF 
     4343                     IF( med_diag%BASIN_19%dgsave ) THEN 
     4344                         CALL iom_put( "BASIN_19"  , fdzmi22d ) 
     4345                     ENDIF 
     4346                     IF( med_diag%BASIN_20%dgsave ) THEN 
     4347                         CALL iom_put( "BASIN_20"  , fdzmi2d ) 
     4348                     ENDIF 
     4349                     IF( med_diag%BASIN_21%dgsave ) THEN 
     4350                         CALL iom_put( "BASIN_21"  , fgmezmi2d ) 
     4351                     ENDIF 
     4352                     IF( med_diag%BASIN_22%dgsave ) THEN 
     4353                         CALL iom_put( "BASIN_22"  , fgmed2d ) 
     4354                     ENDIF 
     4355                     IF( med_diag%BASIN_23%dgsave ) THEN 
     4356                         CALL iom_put( "BASIN_23"  , gmedc2d ) 
     4357                     ENDIF 
     4358                     IF( med_diag%BASIN_24%dgsave ) THEN 
     4359                         CALL iom_put( "BASIN_24"  , zemesn2d ) 
    43634360                     ENDIF   
    4364                      IF( med_diag%BASSIN_25%dgsave ) THEN 
    4365                          CALL iom_put( "BASSIN_25"  , zemesd2d ) 
    4366                      ENDIF 
    4367                      IF( med_diag%BASSIN_26%dgsave ) THEN 
    4368                          CALL iom_put( "BASSIN_26"  , zemesc2d ) 
    4369                      ENDIF 
    4370                      IF( med_diag%BASSIN_27%dgsave ) THEN 
    4371                          CALL iom_put( "BASSIN_27"  , zemesdc2d ) 
    4372                      ENDIF 
    4373                      IF( med_diag%BASSIN_28%dgsave ) THEN 
    4374                          CALL iom_put( "BASSIN_28"  , zeexcr2d ) 
    4375                      ENDIF 
    4376                      IF( med_diag%BASSIN_29%dgsave ) THEN 
    4377                          CALL iom_put( "BASSIN_29"  , zeresp2d ) 
    4378                      ENDIF 
    4379                      IF( med_diag%BASSIN_30%dgsave ) THEN 
    4380                          CALL iom_put( "BASSIN_30"  , zegrow2d ) 
    4381                      ENDIF 
    4382                      IF( med_diag%BASSIN_31%dgsave ) THEN 
    4383                          CALL iom_put( "BASSIN_30"  , fdzme22d ) 
    4384                      ENDIF 
    4385                      IF( med_diag%BASSIN_32%dgsave ) THEN 
    4386                          CALL iom_put( "BASSIN_32"  , fdzme2d ) 
    4387                      ENDIF 
    4388                      IF( med_diag%BASSIN_33%dgsave ) THEN 
    4389                          CALL iom_put( "BASSIN_33"  , fslown2d ) 
    4390                      ENDIF 
    4391                      IF( med_diag%BASSIN_34%dgsave ) THEN 
    4392                          CALL iom_put( "BASSIN_34"  , fdd2d ) 
    4393                      ENDIF 
    4394                      IF( med_diag%BASSIN_35%dgsave ) THEN 
    4395                          CALL iom_put( "BASSIN_35"  , fslowc2d ) 
    4396                      ENDIF 
    4397                      IF( med_diag%BASSIN_36%dgsave ) THEN 
    4398                          CALL iom_put( "BASSIN_36"  , mdetc2d ) 
    4399                      ENDIF 
    4400                      IF( med_diag%BASSIN_37%dgsave ) THEN 
    4401                          CALL iom_put( "BASSIN_37"  , ftempn2d ) 
    4402                      ENDIF 
    4403                      IF( med_diag%BASSIN_38%dgsave ) THEN 
    4404                          CALL iom_put( "BASSIN_38"  , freminn2d ) 
    4405                      ENDIF 
    4406                      IF( med_diag%BASSIN_39%dgsave ) THEN 
    4407                          CALL iom_put( "BASSIN_39"  , ftempc2d ) 
    4408                      ENDIF 
    4409                      IF( med_diag%BASSIN_40%dgsave ) THEN 
    4410                          CALL iom_put( "BASSIN_40"  , freminc2d ) 
    4411                      ENDIF 
    4412                      IF( med_diag%BASSIN_41%dgsave ) THEN 
    4413                          CALL iom_put( "BASSIN_41"  , fcomm_resp ) 
     4361                     IF( med_diag%BASIN_25%dgsave ) THEN 
     4362                         CALL iom_put( "BASIN_25"  , zemesd2d ) 
     4363                     ENDIF 
     4364                     IF( med_diag%BASIN_26%dgsave ) THEN 
     4365                         CALL iom_put( "BASIN_26"  , zemesc2d ) 
     4366                     ENDIF 
     4367                     IF( med_diag%BASIN_27%dgsave ) THEN 
     4368                         CALL iom_put( "BASIN_27"  , zemesdc2d ) 
     4369                     ENDIF 
     4370                     IF( med_diag%BASIN_28%dgsave ) THEN 
     4371                         CALL iom_put( "BASIN_28"  , zeexcr2d ) 
     4372                     ENDIF 
     4373                     IF( med_diag%BASIN_29%dgsave ) THEN 
     4374                         CALL iom_put( "BASIN_29"  , zeresp2d ) 
     4375                     ENDIF 
     4376                     IF( med_diag%BASIN_30%dgsave ) THEN 
     4377                         CALL iom_put( "BASIN_30"  , zegrow2d ) 
     4378                     ENDIF 
     4379                     IF( med_diag%BASIN_31%dgsave ) THEN 
     4380                         CALL iom_put( "BASIN_30"  , fdzme22d ) 
     4381                     ENDIF 
     4382                     IF( med_diag%BASIN_32%dgsave ) THEN 
     4383                         CALL iom_put( "BASIN_32"  , fdzme2d ) 
     4384                     ENDIF 
     4385                     IF( med_diag%BASIN_33%dgsave ) THEN 
     4386                         CALL iom_put( "BASIN_33"  , fslown2d ) 
     4387                     ENDIF 
     4388                     IF( med_diag%BASIN_34%dgsave ) THEN 
     4389                         CALL iom_put( "BASIN_34"  , fdd2d ) 
     4390                     ENDIF 
     4391                     IF( med_diag%BASIN_35%dgsave ) THEN 
     4392                         CALL iom_put( "BASIN_35"  , fslowc2d ) 
     4393                     ENDIF 
     4394                     IF( med_diag%BASIN_36%dgsave ) THEN 
     4395                         CALL iom_put( "BASIN_36"  , mdetc2d ) 
     4396                     ENDIF 
     4397                     IF( med_diag%BASIN_37%dgsave ) THEN 
     4398                         CALL iom_put( "BASIN_37"  , ftempn2d ) 
     4399                     ENDIF 
     4400                     IF( med_diag%BASIN_38%dgsave ) THEN 
     4401                         CALL iom_put( "BASIN_38"  , freminn2d ) 
     4402                     ENDIF 
     4403                     IF( med_diag%BASIN_39%dgsave ) THEN 
     4404                         CALL iom_put( "BASIN_39"  , ftempc2d ) 
     4405                     ENDIF 
     4406                     IF( med_diag%BASIN_40%dgsave ) THEN 
     4407                         CALL iom_put( "BASIN_40"  , freminc2d ) 
     4408                     ENDIF 
     4409                     IF( med_diag%BASIN_41%dgsave ) THEN 
     4410                         CALL iom_put( "BASIN_41"  , fcomm_resp ) 
    44144411                     ENDIF                   
    4415                      IF( med_diag%BASSIN_42%dgsave ) THEN 
    4416                          CALL iom_put( "BASSIN_42"  , fslownflux ) 
    4417                      ENDIF 
    4418                      IF( med_diag%BASSIN_43%dgsave ) THEN 
    4419                          CALL iom_put( "BASSIN_43"  , fslowcflux ) 
    4420                      ENDIF 
    4421                      IF( med_diag%BASSIN_44%dgsave ) THEN 
    4422                          CALL iom_put( "BASSIN_44"  , ffastn ) 
    4423                      ENDIF 
    4424                      IF( med_diag%BASSIN_45%dgsave ) THEN 
    4425                          CALL iom_put( "BASSIN_45"  , ffastc ) 
     4412                     IF( med_diag%BASIN_42%dgsave ) THEN 
     4413                         CALL iom_put( "BASIN_42"  , fslownflux ) 
     4414                     ENDIF 
     4415                     IF( med_diag%BASIN_43%dgsave ) THEN 
     4416                         CALL iom_put( "BASIN_43"  , fslowcflux ) 
     4417                     ENDIF 
     4418                     IF( med_diag%BASIN_44%dgsave ) THEN 
     4419                         CALL iom_put( "BASIN_44"  , ffastn ) 
     4420                     ENDIF 
     4421                     IF( med_diag%BASIN_45%dgsave ) THEN 
     4422                         CALL iom_put( "BASIN_45"  , ffastc ) 
    44264423                     ENDIF 
    44274424# endif                      
     
    44874484                         CALL iom_put( "SDT_1000"  , fslownflux ) 
    44884485                     ENDIF 
    4489                      IF( med_diag%REG__1000%dgsave ) THEN 
    4490                          CALL iom_put( "REG__1000"  , fregen2d ) 
     4486                     IF( med_diag%REG_1000%dgsave ) THEN 
     4487                         CALL iom_put( "REG_1000"  , fregen2d ) 
    44914488                     ENDIF   
    4492                      IF( med_diag%FDT__1000%dgsave ) THEN 
    4493                          CALL iom_put( "FDT__1000"  , ffastn ) 
    4494                      ENDIF 
    4495                      IF( med_diag%RG__1000F%dgsave ) THEN 
    4496                          CALL iom_put( "RG__1000F"  , fregenfast ) 
    4497                      ENDIF 
    4498                      IF( med_diag%FDS__1000%dgsave ) THEN 
    4499                          CALL iom_put( "FDS__1000"  , ffastsi ) 
     4489                     IF( med_diag%FDT_1000%dgsave ) THEN 
     4490                         CALL iom_put( "FDT_1000"  , ffastn ) 
     4491                     ENDIF 
     4492                     IF( med_diag%RG_1000F%dgsave ) THEN 
     4493                         CALL iom_put( "RG_1000F"  , fregenfast ) 
     4494                     ENDIF 
     4495                     IF( med_diag%FDS_1000%dgsave ) THEN 
     4496                         CALL iom_put( "FDS_1000"  , ffastsi ) 
    45004497                     ENDIF 
    45014498                     IF( med_diag%RGS1000F%dgsave ) THEN 
     
    45104507                          CALL wrk_dealloc( jpi, jpj,  ffastca2d    ) 
    45114508                     ENDIF 
    4512                      IF( med_diag%SDC__1000%dgsave ) THEN 
    4513                          CALL iom_put( "SDC__1000"  , fslowcflux ) 
     4509                     IF( med_diag%SDC_1000%dgsave ) THEN 
     4510                         CALL iom_put( "SDC_1000"  , fslowcflux ) 
    45144511                     ENDIF  
    45154512# endif                       
     
    45814578                      detflux3d(:,:,jk) = fslownflux(:,:) + ffastn(:,:) !! detrital flux 
    45824579                      !CALL iom_put( "DETFLUX3"  , ftot_n ) 
    4583                   ENDIF 
     4580                 ENDIF 
    45844581             ENDIF 
    45854582      !! CLOSE vertical loop 
    4586       END DO 
     4583      ENDDO 
    45874584 
    45884585      !!---------------------------------------------------------------------- 
     
    47844781               trc2d(ji,jj,117) = foxy_anox(ji,jj)  !! integrated unrealised oxygen consumption 
    47854782# endif 
    4786             END DO 
    4787          END DO 
     4783            ENDDO 
     4784         ENDDO 
    47884785          
    47894786# if defined key_roam 
     
    48074804                        &        ji, jj, jn 
    48084805                     endif 
    4809                   enddo 
    4810                enddo 
     4806                  ENDDO 
     4807               ENDDO 
    48114808          CALL ctl_stop( 'trcbio_medusa, NAN in 2D diagnostic field' ) 
    48124809            endif 
     
    48284825                           &        ji, jj, jk, jn 
    48294826                        endif 
    4830                      enddo 
    4831                   enddo 
    4832                enddo 
     4827                     ENDDO 
     4828                  ENDDO 
     4829               ENDDO 
    48334830          CALL ctl_stop( 'trcbio_medusa, NAN in 3D diagnostic field' ) 
    48344831            endif 
     
    48454842         DO jn=1,jp_medusa_2d 
    48464843             CALL lbc_lnk(trc2d(:,:,jn),'T',1. ) 
    4847          END DO  
     4844         ENDDO  
    48484845 
    48494846         !! Lateral boundary conditions on trc3d 
    48504847         DO jn=1,jp_medusa_3d 
    48514848             CALL lbc_lnk(trc3d(:,:,1,jn),'T',1. ) 
    4852          END DO  
     4849         ENDDO  
     4850 
     4851 
     4852# if defined key_axy_nodiag 
     4853         !!---------------------------------------------------------------------- 
     4854         !! Blank diagnostics as a NaN-trap 
     4855         !!---------------------------------------------------------------------- 
     4856         !!  
     4857         !! blank 2D diagnostic array 
     4858         trc2d(:,:,:) = 0.e0 
     4859         !! 
     4860         !! blank 3D diagnostic array 
     4861         trc3d(:,:,:,:) = 0.e0 
     4862# endif 
     4863 
     4864 
     4865         !!---------------------------------------------------------------------- 
     4866         !! Add in XML diagnostics stuff 
     4867         !!---------------------------------------------------------------------- 
     4868         !! 
     4869         !! ** 2D diagnostics 
     4870         DO jn=1,jp_medusa_2d 
     4871            CALL iom_put(TRIM(ctrc2d(jn)), trc2d(:,:,jn)) 
     4872         END DO 
     4873!! AXY (17/02/14): don't think I need this if I modify the above for all diagnostics 
     4874!! #  if defined key_roam 
     4875!!          DO jn=91,jp_medusa_2d 
     4876!!             CALL iom_put(TRIM(ctrc2d(jn)), trc2d(:,:,jn)) 
     4877!!          END DO       
     4878!! #  endif 
     4879         !! 
     4880         !! ** 3D diagnostics 
     4881         DO jn=1,jp_medusa_3d 
     4882            CALL iom_put(TRIM(ctrc3d(jn)), trc3d(:,:,:,jn)) 
     4883         END DO 
     4884!! AXY (17/02/14): don't think I need this if I modify the above for all diagnostics 
     4885!! #  if defined key_roam 
     4886!!          CALL iom_put(TRIM(ctrc3d(5)), trc3d(:,:,:,5)) 
     4887!! #  endif 
     4888 
    48534889 
    48544890      ELSE IF( lk_iomput .AND. .NOT. ln_diatrc ) THEN 
    48554891         !!!---------------------------------------------------------------------- 
    4856          !! Add very last diag calculations 
     4892         !! Add very last diag calculations  
    48574893         !!!---------------------------------------------------------------------- 
    48584894         DO jj = 2,jpjm1 
     
    48834919                    fsld2d(ji,jj) = fsld2d(ji,jj)  / MAX(ftot_pd(ji,jj), rsmall) 
    48844920                ENDIF 
    4885             END DO 
    4886          END DO 
     4921            ENDDO 
     4922         ENDDO 
    48874923         !!---------------------------------------------------------------------- 
    48884924         !! Add in XML diagnostics stuff 
     
    48934929             CALL iom_put( "INVTN"  , ftot_n ) 
    48944930         ENDIF 
    4895          IF ( med_diag%INVTSI") THEN 
     4931         IF ( med_diag%INVTSI%dgsave ) THEN 
    48964932             CALL iom_put( "INVTSI"  , ftot_si ) 
    48974933         ENDIF 
     
    53085344      DO jn=1,jp_medusa_trd 
    53095345          CALL lbc_lnk(trbio(:,:,1,jn),'T',1. ) 
    5310       END DO  
     5346      ENDDO  
    53115347# endif 
    53125348 
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90

    r5931 r5937  
    2222   USE sms_medusa      ! sms trends 
    2323   USE iom             ! I/O manager 
    24    USE trc_nam_dia     ! JPALM 13-11-2015 -- if iom_use for diag 
     24   !!USE trc_nam_dia     ! JPALM 13-11-2015 -- if iom_use for diag 
    2525 
    2626   !! AXY (04/02/14): necessary to find NaNs on HECTOR 
     
    3030   PRIVATE 
    3131 
    32    PUBLIC   trc_nam_medusa   ! called by trcnam.F90 module 
     32   PUBLIC   trc_nam_medusa       ! called by trcnam.F90 module 
     33   PUBLIC   trc_nam_iom_medusa   ! called by trcnam.F90 module 
    3334 
    3435   !!* Substitution 
     
    11871188      !!---------------------------------------------------------------------- 
    11881189      !! 
    1189       IF iom_use("INVTN") THEN  
     1190      IF (iom_use("INVTN")) THEN  
    11901191          med_diag%INVTN%dgsave = .TRUE. 
    11911192      ELSE  
    11921193          med_diag%INVTN%dgsave = .FALSE. 
    11931194      ENDIF 
    1194       IF  iom_use("INVTSI") THEN  
     1195      IF  (iom_use("INVTSI")) THEN  
    11951196          med_diag%INVTSI%dgsave = .TRUE. 
    11961197      ELSE  
    11971198          med_diag%INVTSI%dgsave = .FALSE. 
    11981199      ENDIF 
    1199       IF  iom_use("INVTFE") THEN  
     1200      IF  (iom_use("INVTFE")) THEN  
    12001201          med_diag%INVTFE%dgsave = .TRUE. 
    12011202      ELSE  
    12021203          med_diag%INVTFE%dgsave = .FALSE. 
    12031204      ENDIF 
    1204       IF  iom_use("PRN") THEN  
     1205      IF  (iom_use("PRN")) THEN  
    12051206          med_diag%PRN%dgsave = .TRUE. 
    12061207      ELSE  
    12071208          med_diag%PRN%dgsave = .FALSE. 
    12081209      ENDIF 
    1209       IF  iom_use("MPN") THEN  
     1210      IF  (iom_use("MPN")) THEN  
    12101211          med_diag%MPN%dgsave = .TRUE. 
    12111212      ELSE  
    12121213          med_diag%MPN%dgsave = .FALSE. 
    12131214      ENDIF 
    1214       IF  iom_use("PRD") THEN  
     1215      IF  (iom_use("PRD")) THEN  
    12151216          med_diag%PRD%dgsave = .TRUE. 
    12161217      ELSE  
    12171218          med_diag%PRD%dgsave = .FALSE. 
    12181219      ENDIF 
    1219       IF  iom_use("MPD") THEN  
     1220      IF  (iom_use("MPD")) THEN  
    12201221          med_diag%MPD%dgsave = .TRUE. 
    12211222      ELSE  
    12221223          med_diag%MPD%dgsave = .FALSE. 
    12231224      ENDIF 
    1224       IF  iom_use("DSED") THEN  
     1225      IF  (iom_use("DSED")) THEN  
    12251226          med_diag%DSED%dgsave = .TRUE. 
    12261227      ELSE  
    12271228          med_diag%DSED%dgsave = .FALSE. 
    12281229      ENDIF 
    1229       IF  iom_use("OPAL") THEN  
     1230      IF  (iom_use("OPAL")) THEN  
    12301231          med_diag%OPAL%dgsave = .TRUE. 
    12311232      ELSE  
    12321233          med_diag%OPAL%dgsave = .FALSE. 
    12331234      ENDIF 
    1234       IF  iom_use("OPALDISS") THEN  
     1235      IF  (iom_use("OPALDISS")) THEN  
    12351236          med_diag%OPALDISS%dgsave = .TRUE. 
    12361237      ELSE  
    12371238          med_diag%OPALDISS%dgsave = .FALSE. 
    12381239      ENDIF 
    1239       IF  iom_use("GMIPn") THEN  
     1240      IF  (iom_use("GMIPn")) THEN  
    12401241          med_diag%GMIPn%dgsave = .TRUE. 
    12411242      ELSE  
    12421243          med_diag%GMIPn%dgsave = .FALSE. 
    12431244      ENDIF 
    1244       IF  iom_use("GMID") THEN  
     1245      IF  (iom_use("GMID")) THEN  
    12451246          med_diag%GMID%dgsave = .TRUE. 
    12461247      ELSE  
    12471248          med_diag%GMID%dgsave = .FALSE. 
    12481249      ENDIF 
    1249       IF  iom_use("MZMI") THEN  
     1250      IF  (iom_use("MZMI")) THEN  
    12501251          med_diag%MZMI%dgsave = .TRUE. 
    12511252      ELSE  
    12521253          med_diag%MZMI%dgsave = .FALSE. 
    12531254      ENDIF 
    1254       IF  iom_use("GMEPN") THEN  
     1255      IF  (iom_use("GMEPN")) THEN  
    12551256          med_diag%GMEPN%dgsave = .TRUE. 
    12561257      ELSE  
    12571258          med_diag%GMEPN%dgsave = .FALSE. 
    12581259      ENDIF 
    1259       IF  iom_use("GMEPD") THEN  
     1260      IF  (iom_use("GMEPD")) THEN  
    12601261          med_diag%GMEPD%dgsave = .TRUE. 
    12611262      ELSE  
    12621263          med_diag%GMEPD%dgsave = .FALSE. 
    12631264      ENDIF 
    1264       IF  iom_use("GMEZMI") THEN  
     1265      IF  (iom_use("GMEZMI")) THEN  
    12651266          med_diag%GMEZMI%dgsave = .TRUE. 
    12661267      ELSE  
    12671268          med_diag%GMEZMI%dgsave = .FALSE. 
    12681269      ENDIF 
    1269       IF  iom_use("GMED") THEN  
     1270      IF  (iom_use("GMED")) THEN  
    12701271          med_diag%GMED%dgsave = .TRUE. 
    12711272      ELSE  
    12721273          med_diag%GMED%dgsave = .FALSE. 
    12731274      ENDIF 
    1274       IF  iom_use("MZME") THEN  
     1275      IF  (iom_use("MZME")) THEN  
    12751276          med_diag%MZME%dgsave = .TRUE. 
    12761277      ELSE  
    12771278          med_diag%MZME%dgsave = .FALSE. 
    12781279      ENDIF 
    1279       IF  iom_use("DEXP") THEN  
     1280      IF  (iom_use("DEXP")) THEN  
    12801281          med_diag%DEXP%dgsave = .TRUE. 
    12811282      ELSE  
    12821283          med_diag%DEXP%dgsave = .FALSE. 
    12831284      ENDIF 
    1284       IF  iom_use("DETN") THEN  
     1285      IF  (iom_use("DETN")) THEN  
    12851286          med_diag%DETN%dgsave = .TRUE. 
    12861287      ELSE  
    12871288          med_diag%DETN%dgsave = .FALSE. 
    12881289      ENDIF 
    1289       IF  iom_use("MDET") THEN  
     1290      IF  (iom_use("MDET")) THEN  
    12901291          med_diag%MDET%dgsave = .TRUE. 
    12911292      ELSE  
    12921293          med_diag%MDET%dgsave = .FALSE. 
    12931294      ENDIF 
    1294       IF  iom_use("AEOLIAN") THEN  
     1295      IF  (iom_use("AEOLIAN")) THEN  
    12951296          med_diag%AEOLIAN%dgsave = .TRUE. 
    12961297      ELSE  
    12971298          med_diag%AEOLIAN%dgsave = .FALSE. 
    12981299      ENDIF 
    1299       IF  iom_use("BENTHIC") THEN  
     1300      IF  (iom_use("BENTHIC")) THEN  
    13001301          med_diag%BENTHIC%dgsave = .TRUE. 
    13011302      ELSE  
    13021303          med_diag%BENTHIC%dgsave = .FALSE. 
    13031304      ENDIF 
    1304       IF  iom_use("SCAVENGE") THEN  
     1305      IF  (iom_use("SCAVENGE")) THEN  
    13051306          med_diag%SCAVENGE%dgsave = .TRUE. 
    13061307      ELSE  
    13071308          med_diag%SCAVENGE%dgsave = .FALSE. 
    13081309      ENDIF 
    1309       IF  iom_use("PN_JLIM") THEN  
     1310      IF  (iom_use("PN_JLIM")) THEN  
    13101311          med_diag%PN_JLIM%dgsave = .TRUE. 
    13111312      ELSE  
    13121313          med_diag%PN_JLIM%dgsave = .FALSE. 
    13131314      ENDIF 
    1314       IF  iom_use("PN_NLIM") THEN  
     1315      IF  (iom_use("PN_NLIM")) THEN  
    13151316          med_diag%PN_NLIM%dgsave = .TRUE. 
    13161317      ELSE  
    13171318          med_diag%PN_NLIM%dgsave = .FALSE. 
    13181319      ENDIF 
    1319       IF  iom_use("PN_FELIM") THEN  
     1320      IF  (iom_use("PN_FELIM")) THEN  
    13201321          med_diag%PN_FELIM%dgsave = .TRUE. 
    13211322      ELSE  
    13221323          med_diag%PN_FELIM%dgsave = .FALSE. 
    13231324      ENDIF 
    1324       IF  iom_use("PD_JLIM") THEN  
     1325      IF  (iom_use("PD_JLIM")) THEN  
    13251326          med_diag%PD_JLIM%dgsave = .TRUE. 
    13261327      ELSE  
    13271328          med_diag%PD_JLIM%dgsave = .FALSE. 
    13281329      ENDIF 
    1329       IF  iom_use("PD_NLIM") THEN  
     1330      IF  (iom_use("PD_NLIM")) THEN  
    13301331          med_diag%PD_NLIM%dgsave = .TRUE. 
    13311332      ELSE  
    13321333          med_diag%PD_NLIM%dgsave = .FALSE. 
    13331334      ENDIF 
    1334       IF  iom_use("PD_FELIM") THEN  
     1335      IF  (iom_use("PD_FELIM")) THEN  
    13351336          med_diag%PD_FELIM%dgsave = .TRUE. 
    13361337      ELSE  
    13371338          med_diag%PD_FELIM%dgsave = .FALSE. 
    13381339      ENDIF 
    1339       IF  iom_use("PD_SILIM") THEN  
     1340      IF  (iom_use("PD_SILIM")) THEN  
    13401341          med_diag%PD_SILIM%dgsave = .TRUE. 
    13411342      ELSE  
    13421343          med_diag%PD_SILIM%dgsave = .FALSE. 
    13431344      ENDIF 
    1344       IF  iom_use("PDSILIM2") THEN  
     1345      IF  (iom_use("PDSILIM2")) THEN  
    13451346          med_diag%PDSILIM2%dgsave = .TRUE. 
    13461347      ELSE  
    13471348          med_diag%PDSILIM2%dgsave = .FALSE. 
    13481349      ENDIF 
    1349       IF  iom_use("SDT__100") THEN  
     1350      IF  (iom_use("SDT__100")) THEN  
    13501351          med_diag%SDT__100%dgsave = .TRUE. 
    13511352      ELSE  
    13521353          med_diag%SDT__100%dgsave = .FALSE. 
    13531354      ENDIF 
    1354       IF  iom_use("SDT__200") THEN  
     1355      IF  (iom_use("SDT__200")) THEN  
    13551356          med_diag%SDT__200%dgsave = .TRUE. 
    13561357      ELSE  
    13571358          med_diag%SDT__200%dgsave = .FALSE. 
    13581359      ENDIF 
    1359       IF  iom_use("SDT__500") THEN  
     1360      IF  (iom_use("SDT__500")) THEN  
    13601361          med_diag%SDT__500%dgsave = .TRUE. 
    13611362      ELSE  
    13621363          med_diag%SDT__500%dgsave = .FALSE. 
    13631364      ENDIF 
    1364       IF  iom_use("SDT_1000") THEN  
     1365      IF  (iom_use("SDT_1000")) THEN  
    13651366          med_diag%SDT_1000%dgsave = .TRUE. 
    13661367      ELSE  
    13671368          med_diag%SDT_1000%dgsave = .FALSE. 
    13681369      ENDIF 
    1369       IF  iom_use("TOTREG_N") THEN  
     1370      IF  (iom_use("TOTREG_N")) THEN  
    13701371          med_diag%TOTREG_N%dgsave = .TRUE. 
    13711372      ELSE  
    13721373          med_diag%TOTREG_N%dgsave = .FALSE. 
    13731374      ENDIF 
    1374       IF  iom_use("TOTRG_SI") THEN  
     1375      IF  (iom_use("TOTRG_SI")) THEN  
    13751376          med_diag%TOTRG_SI%dgsave = .TRUE. 
    13761377      ELSE  
    13771378          med_diag%TOTRG_SI%dgsave = .FALSE. 
    13781379      ENDIF 
    1379       IF  iom_use("REG__100") THEN  
     1380      IF  (iom_use("REG__100")) THEN  
    13801381          med_diag%REG__100%dgsave = .TRUE. 
    13811382      ELSE  
    13821383          med_diag%REG__100%dgsave = .FALSE. 
    13831384      ENDIF 
    1384       IF  iom_use("REG__200") THEN  
     1385      IF  (iom_use("REG__200")) THEN  
    13851386          med_diag%REG__200%dgsave = .TRUE. 
    13861387      ELSE  
    13871388          med_diag%REG__200%dgsave = .FALSE. 
    13881389      ENDIF 
    1389       IF  iom_use("REG__500") THEN  
     1390      IF  (iom_use("REG__500")) THEN  
    13901391          med_diag%REG__500%dgsave = .TRUE. 
    13911392      ELSE  
    13921393          med_diag%REG__500%dgsave = .FALSE. 
    13931394      ENDIF 
    1394       IF  iom_use("REG_1000") THEN  
     1395      IF  (iom_use("REG_1000")) THEN  
    13951396          med_diag%REG_1000%dgsave = .TRUE. 
    13961397      ELSE  
    13971398          med_diag%REG_1000%dgsave = .FALSE. 
    13981399      ENDIF 
    1399       IF  iom_use("FASTN") THEN  
     1400      IF  (iom_use("FASTN")) THEN  
    14001401          med_diag%FASTN%dgsave = .TRUE. 
    14011402      ELSE  
    14021403          med_diag%FASTN%dgsave = .FALSE. 
    14031404      ENDIF 
    1404       IF  iom_use("FASTSI") THEN  
     1405      IF  (iom_use("FASTSI")) THEN  
    14051406          med_diag%FASTSI%dgsave = .TRUE. 
    14061407      ELSE  
    14071408          med_diag%FASTSI%dgsave = .FALSE. 
    14081409      ENDIF 
    1409       IF  iom_use("FASTFE") THEN  
     1410      IF  (iom_use("FASTFE")) THEN  
    14101411          med_diag%FASTFE%dgsave = .TRUE. 
    14111412      ELSE  
    14121413          med_diag%FASTFE%dgsave = .FALSE. 
    14131414      ENDIF 
    1414       IF  iom_use("FASTC") THEN  
     1415      IF  (iom_use("FASTC")) THEN  
    14151416          med_diag%FASTC%dgsave = .TRUE. 
    14161417      ELSE  
    14171418          med_diag%FASTC%dgsave = .FALSE. 
    14181419      ENDIF 
    1419       IF  iom_use("FASTCA") THEN  
     1420      IF  (iom_use("FASTCA")) THEN  
    14201421          med_diag%FASTCA%dgsave = .TRUE. 
    14211422      ELSE  
    14221423          med_diag%FASTCA%dgsave = .FALSE. 
    14231424      ENDIF 
    1424       IF  iom_use("FDT__100") THEN  
     1425      IF  (iom_use("FDT__100")) THEN  
    14251426          med_diag%FDT__100%dgsave = .TRUE. 
    14261427      ELSE  
    14271428          med_diag%FDT__100%dgsave = .FALSE. 
    14281429      ENDIF 
    1429       IF  iom_use("FDT__200") THEN  
     1430      IF  (iom_use("FDT__200")) THEN  
    14301431          med_diag%FDT__200%dgsave = .TRUE. 
    14311432      ELSE  
    14321433          med_diag%FDT__200%dgsave = .FALSE. 
    14331434      ENDIF 
    1434       IF  iom_use("FDT__500") THEN  
     1435      IF  (iom_use("FDT__500")) THEN  
    14351436          med_diag%FDT__500%dgsave = .TRUE. 
    14361437      ELSE  
    14371438          med_diag%FDT__500%dgsave = .FALSE. 
    14381439      ENDIF 
    1439       IF  iom_use("FDT_1000") THEN  
     1440      IF  (iom_use("FDT_1000")) THEN  
    14401441          med_diag%FDT_1000%dgsave = .TRUE. 
    14411442      ELSE  
    14421443          med_diag%FDT_1000%dgsave = .FALSE. 
    14431444      ENDIF 
    1444       IF  iom_use("RG__100F") THEN  
     1445      IF  (iom_use("RG__100F")) THEN  
    14451446          med_diag%RG__100F%dgsave = .TRUE. 
    14461447      ELSE  
    14471448          med_diag%RG__100F%dgsave = .FALSE. 
    14481449      ENDIF 
    1449       IF  iom_use("RG__200F") THEN  
     1450      IF  (iom_use("RG__200F")) THEN  
    14501451          med_diag%RG__200F%dgsave = .TRUE. 
    14511452      ELSE  
    14521453          med_diag%RG__200F%dgsave = .FALSE. 
    14531454      ENDIF 
    1454       IF  iom_use("RG__500F") THEN  
     1455      IF  (iom_use("RG__500F")) THEN  
    14551456          med_diag%RG__500F%dgsave = .TRUE. 
    14561457      ELSE  
    14571458          med_diag%RG__500F%dgsave = .FALSE. 
    14581459      ENDIF 
    1459       IF  iom_use("RG_1000F") THEN  
     1460      IF  (iom_use("RG_1000F")) THEN  
    14601461          med_diag%RG_1000F%dgsave = .TRUE. 
    14611462      ELSE  
    14621463          med_diag%RG_1000F%dgsave = .FALSE. 
    14631464      ENDIF 
    1464       IF  iom_use("FDS__100") THEN  
     1465      IF  (iom_use("FDS__100")) THEN  
    14651466          med_diag%FDS__100%dgsave = .TRUE. 
    14661467      ELSE  
    14671468          med_diag%FDS__100%dgsave = .FALSE. 
    14681469      ENDIF 
    1469       IF  iom_use("FDS__200") THEN  
     1470      IF  (iom_use("FDS__200")) THEN  
    14701471          med_diag%FDS__200%dgsave = .TRUE. 
    14711472      ELSE  
    14721473          med_diag%FDS__200%dgsave = .FALSE. 
    14731474      ENDIF 
    1474       IF  iom_use("FDS__500") THEN  
     1475      IF  (iom_use("FDS__500")) THEN  
    14751476          med_diag%FDS__500%dgsave = .TRUE. 
    14761477      ELSE  
    14771478          med_diag%FDS__500%dgsave = .FALSE. 
    14781479      ENDIF 
    1479       IF  iom_use("FDS_1000") THEN  
     1480      IF  (iom_use("FDS_1000")) THEN  
    14801481          med_diag%FDS_1000%dgsave = .TRUE. 
    14811482      ELSE  
    14821483          med_diag%FDS_1000%dgsave = .FALSE. 
    14831484      ENDIF 
    1484       IF  iom_use("RGS_100F") THEN  
     1485      IF  (iom_use("RGS_100F")) THEN  
    14851486          med_diag%RGS_100F%dgsave = .TRUE. 
    14861487      ELSE  
    14871488          med_diag%RGS_100F%dgsave = .FALSE. 
    14881489      ENDIF 
    1489       IF  iom_use("RGS_200F") THEN  
     1490      IF  (iom_use("RGS_200F")) THEN  
    14901491          med_diag%RGS_200F%dgsave = .TRUE. 
    14911492      ELSE  
    14921493          med_diag%RGS_200F%dgsave = .FALSE. 
    14931494      ENDIF 
    1494       IF  iom_use("RGS_500F") THEN  
     1495      IF  (iom_use("RGS_500F")) THEN  
    14951496          med_diag%RGS_500F%dgsave = .TRUE. 
    14961497      ELSE  
    14971498          med_diag%RGS_500F%dgsave = .FALSE. 
    14981499      ENDIF 
    1499       IF  iom_use("RGS1000F") THEN  
     1500      IF  (iom_use("RGS1000F")) THEN  
    15001501          med_diag%RGS1000F%dgsave = .TRUE. 
    15011502      ELSE  
    15021503          med_diag%RGS1000F%dgsave = .FALSE. 
    15031504      ENDIF 
    1504       IF  iom_use("REMINN") THEN  
     1505      IF  (iom_use("REMINN")) THEN  
    15051506          med_diag%REMINN%dgsave = .TRUE. 
    15061507      ELSE  
    15071508          med_diag%REMINN%dgsave = .FALSE. 
    15081509      ENDIF 
    1509       IF  iom_use("REMINSI") THEN  
     1510      IF  (iom_use("REMINSI")) THEN  
    15101511          med_diag%REMINSI%dgsave = .TRUE. 
    15111512      ELSE  
    15121513          med_diag%REMINSI%dgsave = .FALSE. 
    15131514      ENDIF 
    1514       IF  iom_use("REMINFE") THEN  
     1515      IF  (iom_use("REMINFE")) THEN  
    15151516          med_diag%REMINFE%dgsave = .TRUE. 
    15161517      ELSE  
    15171518          med_diag%REMINFE%dgsave = .FALSE. 
    15181519      ENDIF 
    1519       IF  iom_use("REMINC") THEN  
     1520      IF  (iom_use("REMINC")) THEN  
    15201521          med_diag%REMINC%dgsave = .TRUE. 
    15211522      ELSE  
    15221523          med_diag%REMINC%dgsave = .FALSE. 
    15231524      ENDIF 
    1524       IF  iom_use("REMINCA") THEN  
     1525      IF  (iom_use("REMINCA")) THEN  
    15251526          med_diag%REMINCA%dgsave = .TRUE. 
    15261527      ELSE  
    15271528          med_diag%REMINCA%dgsave = .FALSE. 
    15281529      ENDIF 
    1529       IF  iom_use("SEAFLRN") THEN  
     1530      IF  (iom_use("SEAFLRN")) THEN  
    15301531          med_diag%SEAFLRN%dgsave = .TRUE. 
    15311532      ELSE  
    15321533          med_diag%SEAFLRN%dgsave = .FALSE. 
    15331534      ENDIF 
    1534       IF  iom_use("SEAFLRSI") THEN  
     1535      IF  (iom_use("SEAFLRSI")) THEN  
    15351536          med_diag%SEAFLRSI%dgsave = .TRUE. 
    15361537      ELSE  
    15371538          med_diag%SEAFLRSI%dgsave = .FALSE. 
    15381539      ENDIF 
    1539       IF  iom_use("SEAFLRFE") THEN  
     1540      IF  (iom_use("SEAFLRFE")) THEN  
    15401541          med_diag%SEAFLRFE%dgsave = .TRUE. 
    15411542      ELSE  
    15421543          med_diag%SEAFLRFE%dgsave = .FALSE. 
    15431544      ENDIF 
    1544       IF  iom_use("SEAFLRC") THEN  
     1545      IF  (iom_use("SEAFLRC")) THEN  
    15451546          med_diag%SEAFLRC%dgsave = .TRUE. 
    15461547      ELSE  
    15471548          med_diag%SEAFLRC%dgsave = .FALSE. 
    15481549      ENDIF 
    1549       IF  iom_use("SEAFLRCA") THEN  
     1550      IF  (iom_use("SEAFLRCA")) THEN  
    15501551          med_diag%SEAFLRCA%dgsave = .TRUE. 
    15511552      ELSE  
    15521553          med_diag%SEAFLRCA%dgsave = .FALSE. 
    15531554      ENDIF 
    1554       IF  iom_use("MED_QSR") THEN  
     1555      IF  (iom_use("MED_QSR")) THEN  
    15551556          med_diag%MED_QSR%dgsave = .TRUE. 
    15561557      ELSE  
    15571558          med_diag%MED_QSR%dgsave = .FALSE. 
    15581559      ENDIF 
    1559       IF  iom_use("MED_XPAR") THEN  
     1560      IF  (iom_use("MED_XPAR")) THEN  
    15601561          med_diag%MED_XPAR%dgsave = .TRUE. 
    15611562      ELSE  
    15621563          med_diag%MED_XPAR%dgsave = .FALSE. 
    15631564      ENDIF 
    1564       IF  iom_use("INTFLX_N") THEN  
     1565      IF  (iom_use("INTFLX_N")) THEN  
    15651566          med_diag%INTFLX_N%dgsave = .TRUE. 
    15661567      ELSE  
    15671568          med_diag%INTFLX_N%dgsave = .FALSE. 
    15681569      ENDIF 
    1569       IF  iom_use("INTFLX_SI") THEN  
     1570      IF  (iom_use("INTFLX_SI")) THEN  
    15701571          med_diag%INTFLX_SI%dgsave = .TRUE. 
    15711572      ELSE  
    15721573          med_diag%INTFLX_SI%dgsave = .FALSE. 
    15731574      ENDIF 
    1574       IF  iom_use("INTFLX_FE") THEN  
     1575      IF  (iom_use("INTFLX_FE")) THEN  
    15751576          med_diag%INTFLX_FE%dgsave = .TRUE. 
    15761577      ELSE  
    15771578          med_diag%INTFLX_FE%dgsave = .FALSE. 
    15781579      ENDIF 
    1579       IF  iom_use("INT_PN") THEN  
     1580      IF  (iom_use("INT_PN")) THEN  
    15801581          med_diag%INT_PN%dgsave = .TRUE. 
    15811582      ELSE  
    15821583          med_diag%INT_PN%dgsave = .FALSE. 
    15831584      ENDIF 
    1584       IF  iom_use("INT_PD") THEN  
     1585      IF  (iom_use("INT_PD")) THEN  
    15851586          med_diag%INT_PD%dgsave = .TRUE. 
    15861587      ELSE  
    15871588          med_diag%INT_PD%dgsave = .FALSE. 
    15881589      ENDIF 
    1589       IF  iom_use("ML_PRN") THEN  
     1590      IF  (iom_use("ML_PRN")) THEN  
    15901591          med_diag%ML_PRN%dgsave = .TRUE. 
    15911592      ELSE  
    15921593          med_diag%ML_PRN%dgsave = .FALSE. 
    15931594      ENDIF 
    1594       IF  iom_use("ML_PRD") THEN  
     1595      IF  (iom_use("ML_PRD")) THEN  
    15951596          med_diag%ML_PRD%dgsave = .TRUE. 
    15961597      ELSE  
    15971598          med_diag%ML_PRD%dgsave = .FALSE. 
    15981599      ENDIF 
    1599       IF  iom_use("OCAL_CCD") THEN  
     1600      IF  (iom_use("OCAL_CCD")) THEN  
    16001601          med_diag%OCAL_CCD%dgsave = .TRUE. 
    16011602      ELSE  
    16021603          med_diag%OCAL_CCD%dgsave = .FALSE. 
    16031604      ENDIF 
    1604       IF  iom_use("OCAL_LVL") THEN  
     1605      IF  (iom_use("OCAL_LVL")) THEN  
    16051606          med_diag%OCAL_LVL%dgsave = .TRUE. 
    16061607      ELSE  
    16071608          med_diag%OCAL_LVL%dgsave = .FALSE. 
    16081609      ENDIF 
    1609       IF  iom_use("FE_0000") THEN  
     1610      IF  (iom_use("FE_0000")) THEN  
    16101611          med_diag%FE_0000%dgsave = .TRUE. 
    16111612      ELSE  
    16121613          med_diag%FE_0000%dgsave = .FALSE. 
    16131614      ENDIF 
    1614       IF  iom_use("FE_0100") THEN  
     1615      IF  (iom_use("FE_0100")) THEN  
    16151616          med_diag%FE_0100%dgsave = .TRUE. 
    16161617      ELSE  
    16171618          med_diag%FE_0100%dgsave = .FALSE. 
    16181619      ENDIF 
    1619       IF  iom_use("FE_0200") THEN  
     1620      IF  (iom_use("FE_0200")) THEN  
    16201621          med_diag%FE_0200%dgsave = .TRUE. 
    16211622      ELSE  
    16221623          med_diag%FE_0200%dgsave = .FALSE. 
    16231624      ENDIF 
    1624       IF  iom_use("FE_0500") THEN  
     1625      IF  (iom_use("FE_0500")) THEN  
    16251626          med_diag%FE_0500%dgsave = .TRUE. 
    16261627      ELSE  
    16271628          med_diag%FE_0500%dgsave = .FALSE. 
    16281629      ENDIF 
    1629       IF  iom_use("FE_1000") THEN  
     1630      IF  (iom_use("FE_1000")) THEN  
    16301631          med_diag%FE_1000%dgsave = .TRUE. 
    16311632      ELSE  
    16321633          med_diag%FE_1000%dgsave = .FALSE. 
    16331634      ENDIF 
    1634       IF  iom_use("MED_XZE") THEN  
     1635      IF  (iom_use("MED_XZE")) THEN  
    16351636          med_diag%MED_XZE%dgsave = .TRUE. 
    16361637      ELSE  
    16371638          med_diag%MED_XZE%dgsave = .FALSE. 
    16381639      ENDIF 
    1639       IF  iom_use("WIND") THEN  
     1640      IF  (iom_use("WIND")) THEN  
    16401641          med_diag%WIND%dgsave = .TRUE. 
    16411642      ELSE  
    16421643          med_diag%WIND%dgsave = .FALSE. 
    16431644      ENDIF 
    1644       IF  iom_use("ATM_PCO2") THEN  
     1645      IF  (iom_use("ATM_PCO2")) THEN  
    16451646          med_diag%ATM_PCO2%dgsave = .TRUE. 
    16461647      ELSE  
    16471648          med_diag%ATM_PCO2%dgsave = .FALSE. 
    16481649      ENDIF 
    1649       IF  iom_use("OCN_PH") THEN  
     1650      IF  (iom_use("OCN_PH")) THEN  
    16501651          med_diag%OCN_PH%dgsave = .TRUE. 
    16511652      ELSE  
    16521653          med_diag%OCN_PH%dgsave = .FALSE. 
    16531654      ENDIF 
    1654       IF  iom_use("OCN_PCO2") THEN  
     1655      IF  (iom_use("OCN_PCO2")) THEN  
    16551656          med_diag%OCN_PCO2%dgsave = .TRUE. 
    16561657      ELSE  
    16571658          med_diag%OCN_PCO2%dgsave = .FALSE. 
    16581659      ENDIF 
    1659       IF  iom_use("OCNH2CO3") THEN  
     1660      IF  (iom_use("OCNH2CO3")) THEN  
    16601661          med_diag%OCNH2CO3%dgsave = .TRUE. 
    16611662      ELSE  
    16621663          med_diag%OCNH2CO3%dgsave = .FALSE. 
    16631664      ENDIF 
    1664       IF  iom_use("OCN_HCO3") THEN  
     1665      IF  (iom_use("OCN_HCO3")) THEN  
    16651666          med_diag%OCN_HCO3%dgsave = .TRUE. 
    16661667      ELSE  
    16671668          med_diag%OCN_HCO3%dgsave = .FALSE. 
    16681669      ENDIF 
    1669       IF  iom_use("OCN_CO3") THEN  
     1670      IF  (iom_use("OCN_CO3")) THEN  
    16701671          med_diag%OCN_CO3%dgsave = .TRUE. 
    16711672      ELSE  
    16721673          med_diag%OCN_CO3%dgsave = .FALSE. 
    16731674      ENDIF 
    1674       IF  iom_use("CO2FLUX") THEN  
     1675      IF  (iom_use("CO2FLUX")) THEN  
    16751676          med_diag%CO2FLUX%dgsave = .TRUE. 
    16761677      ELSE  
    16771678          med_diag%CO2FLUX%dgsave = .FALSE. 
    16781679      ENDIF 
    1679       IF  iom_use("OM_CAL") THEN  
     1680      IF  (iom_use("OM_CAL")) THEN  
    16801681          med_diag%OM_CAL%dgsave = .TRUE. 
    16811682      ELSE  
    16821683          med_diag%OM_CAL%dgsave = .FALSE. 
    16831684      ENDIF 
    1684       IF  iom_use("OM_ARG") THEN  
     1685      IF  (iom_use("OM_ARG")) THEN  
    16851686          med_diag%OM_ARG%dgsave = .TRUE. 
    16861687      ELSE  
    16871688          med_diag%OM_ARG%dgsave = .FALSE. 
    16881689      ENDIF 
    1689       IF  iom_use("TCO2") THEN  
     1690      IF  (iom_use("TCO2")) THEN  
    16901691          med_diag%TCO2%dgsave = .TRUE. 
    16911692      ELSE  
    16921693          med_diag%TCO2%dgsave = .FALSE. 
    16931694      ENDIF 
    1694       IF  iom_use("TALK") THEN  
     1695      IF  (iom_use("TALK")) THEN  
    16951696          med_diag%TALK%dgsave = .TRUE. 
    16961697      ELSE  
    16971698          med_diag%TALK%dgsave = .FALSE. 
    16981699      ENDIF 
    1699       IF  iom_use("KW660") THEN  
     1700      IF  (iom_use("KW660")) THEN  
    17001701          med_diag%KW660%dgsave = .TRUE. 
    17011702      ELSE  
    17021703          med_diag%KW660%dgsave = .FALSE. 
    17031704      ENDIF 
    1704       IF  iom_use("ATM_PP0") THEN  
     1705      IF  (iom_use("ATM_PP0")) THEN  
    17051706          med_diag%ATM_PP0%dgsave = .TRUE. 
    17061707      ELSE  
    17071708          med_diag%ATM_PP0%dgsave = .FALSE. 
    17081709      ENDIF 
    1709       IF  iom_use("O2FLUX") THEN  
     1710      IF  (iom_use("O2FLUX")) THEN  
    17101711          med_diag%O2FLUX%dgsave = .TRUE. 
    17111712      ELSE  
    17121713          med_diag%O2FLUX%dgsave = .FALSE. 
    17131714      ENDIF 
    1714       IF  iom_use("O2SAT") THEN  
     1715      IF  (iom_use("O2SAT")) THEN  
    17151716          med_diag%O2SAT%dgsave = .TRUE. 
    17161717      ELSE  
    17171718          med_diag%O2SAT%dgsave = .FALSE. 
    17181719      ENDIF 
    1719       IF  iom_use("CAL_CCD") THEN  
     1720      IF  (iom_use("CAL_CCD")) THEN  
    17201721          med_diag%CAL_CCD%dgsave = .TRUE. 
    17211722      ELSE  
    17221723          med_diag%CAL_CCD%dgsave = .FALSE. 
    17231724      ENDIF 
    1724       IF  iom_use("ARG_CCD") THEN  
     1725      IF  (iom_use("ARG_CCD")) THEN  
    17251726          med_diag%ARG_CCD%dgsave = .TRUE. 
    17261727      ELSE  
    17271728          med_diag%ARG_CCD%dgsave = .FALSE. 
    17281729      ENDIF 
    1729       IF  iom_use("SFR_OCAL") THEN  
     1730      IF  (iom_use("SFR_OCAL")) THEN  
    17301731          med_diag%SFR_OCAL%dgsave = .TRUE. 
    17311732      ELSE  
    17321733          med_diag%SFR_OCAL%dgsave = .FALSE. 
    17331734      ENDIF 
    1734       IF  iom_use("SFR_OARG") THEN  
     1735      IF  (iom_use("SFR_OARG")) THEN  
    17351736          med_diag%SFR_OARG%dgsave = .TRUE. 
    17361737      ELSE  
    17371738          med_diag%SFR_OARG%dgsave = .FALSE. 
    17381739      ENDIF 
    1739       IF  iom_use("N_PROD") THEN  
     1740      IF  (iom_use("N_PROD")) THEN  
    17401741          med_diag%N_PROD%dgsave = .TRUE. 
    17411742      ELSE  
    17421743          med_diag%N_PROD%dgsave = .FALSE. 
    17431744      ENDIF 
    1744       IF  iom_use("N_CONS") THEN  
     1745      IF  (iom_use("N_CONS")) THEN  
    17451746          med_diag%N_CONS%dgsave = .TRUE. 
    17461747      ELSE  
    17471748          med_diag%N_CONS%dgsave = .FALSE. 
    17481749      ENDIF 
    1749       IF  iom_use("C_PROD") THEN  
     1750      IF  (iom_use("C_PROD")) THEN  
    17501751          med_diag%C_PROD%dgsave = .TRUE. 
    17511752      ELSE  
    17521753          med_diag%C_PROD%dgsave = .FALSE. 
    17531754      ENDIF 
    1754       IF  iom_use("C_CONS") THEN  
     1755      IF  (iom_use("C_CONS")) THEN  
    17551756          med_diag%C_CONS%dgsave = .TRUE. 
    17561757      ELSE  
    17571758          med_diag%C_CONS%dgsave = .FALSE. 
    17581759      ENDIF 
    1759       IF  iom_use("O2_PROD") THEN  
     1760      IF  (iom_use("O2_PROD")) THEN  
    17601761          med_diag%O2_PROD%dgsave = .TRUE. 
    17611762      ELSE  
    17621763          med_diag%O2_PROD%dgsave = .FALSE. 
    17631764      ENDIF 
    1764       IF  iom_use("O2_CONS") THEN  
     1765      IF  (iom_use("O2_CONS")) THEN  
    17651766          med_diag%O2_CONS%dgsave = .TRUE. 
    17661767      ELSE  
    17671768          med_diag%O2_CONS%dgsave = .FALSE. 
    17681769      ENDIF 
    1769       IF  iom_use("O2_ANOX") THEN  
     1770      IF  (iom_use("O2_ANOX")) THEN  
    17701771          med_diag%O2_ANOX%dgsave = .TRUE. 
    17711772      ELSE  
    17721773          med_diag%O2_ANOX%dgsave = .FALSE. 
    17731774      ENDIF 
    1774       IF  iom_use("RR_0100") THEN  
     1775      IF  (iom_use("RR_0100")) THEN  
    17751776          med_diag%RR_0100%dgsave = .TRUE. 
    17761777      ELSE  
    17771778          med_diag%RR_0100%dgsave = .FALSE. 
    17781779      ENDIF 
    1779       IF  iom_use("RR_0500") THEN  
     1780      IF  (iom_use("RR_0500")) THEN  
    17801781          med_diag%RR_0500%dgsave = .TRUE. 
    17811782      ELSE  
    17821783          med_diag%RR_0500%dgsave = .FALSE. 
    17831784      ENDIF 
    1784       IF  iom_use("RR_1000") THEN  
     1785      IF  (iom_use("RR_1000")) THEN  
    17851786          med_diag%RR_1000%dgsave = .TRUE. 
    17861787      ELSE  
    17871788          med_diag%RR_1000%dgsave = .FALSE. 
    17881789      ENDIF 
    1789       IF  iom_use("IBEN_N") THEN  
     1790      IF  (iom_use("IBEN_N")) THEN  
    17901791          med_diag%IBEN_N%dgsave = .TRUE. 
    17911792      ELSE  
    17921793          med_diag%IBEN_N%dgsave = .FALSE. 
    17931794      ENDIF 
    1794       IF  iom_use("IBEN_FE") THEN  
     1795      IF  (iom_use("IBEN_FE")) THEN  
    17951796          med_diag%IBEN_FE%dgsave = .TRUE. 
    17961797      ELSE  
    17971798          med_diag%IBEN_FE%dgsave = .FALSE. 
    17981799      ENDIF 
    1799       IF  iom_use("IBEN_C") THEN  
     1800      IF  (iom_use("IBEN_C")) THEN  
    18001801          med_diag%IBEN_C%dgsave = .TRUE. 
    18011802      ELSE  
    18021803          med_diag%IBEN_C%dgsave = .FALSE. 
    18031804      ENDIF 
    1804       IF  iom_use("IBEN_SI") THEN  
     1805      IF  (iom_use("IBEN_SI")) THEN  
    18051806          med_diag%IBEN_SI%dgsave = .TRUE. 
    18061807      ELSE  
    18071808          med_diag%IBEN_SI%dgsave = .FALSE. 
    18081809      ENDIF 
    1809       IF  iom_use("IBEN_CA") THEN  
     1810      IF  (iom_use("IBEN_CA")) THEN  
    18101811          med_diag%IBEN_CA%dgsave = .TRUE. 
    18111812      ELSE  
    18121813          med_diag%IBEN_CA%dgsave = .FALSE. 
    18131814      ENDIF 
    1814       IF  iom_use("OBEN_N") THEN  
     1815      IF  (iom_use("OBEN_N")) THEN  
    18151816          med_diag%OBEN_N%dgsave = .TRUE. 
    18161817      ELSE  
    18171818          med_diag%OBEN_N%dgsave = .FALSE. 
    18181819      ENDIF 
    1819       IF  iom_use("OBEN_FE") THEN  
     1820      IF  (iom_use("OBEN_FE")) THEN  
    18201821          med_diag%OBEN_FE%dgsave = .TRUE. 
    18211822      ELSE  
    18221823          med_diag%OBEN_FE%dgsave = .FALSE. 
    18231824      ENDIF 
    1824       IF  iom_use("OBEN_C") THEN  
     1825      IF  (iom_use("OBEN_C")) THEN  
    18251826          med_diag%OBEN_C%dgsave = .TRUE. 
    18261827      ELSE  
    18271828          med_diag%OBEN_C%dgsave = .FALSE. 
    18281829      ENDIF 
    1829       IF  iom_use("OBEN_SI") THEN  
     1830      IF  (iom_use("OBEN_SI")) THEN  
    18301831          med_diag%OBEN_SI%dgsave = .TRUE. 
    18311832      ELSE  
    18321833          med_diag%OBEN_SI%dgsave = .FALSE. 
    18331834      ENDIF 
    1834       IF  iom_use("OBEN_CA") THEN  
     1835      IF  (iom_use("OBEN_CA")) THEN  
    18351836          med_diag%OBEN_CA%dgsave = .TRUE. 
    18361837      ELSE  
    18371838          med_diag%OBEN_CA%dgsave = .FALSE. 
    18381839      ENDIF 
    1839       IF  iom_use("BEN_N") THEN  
     1840      IF  (iom_use("BEN_N")) THEN  
    18401841          med_diag%BEN_N%dgsave = .TRUE. 
    18411842      ELSE  
    18421843          med_diag%BEN_N%dgsave = .FALSE. 
    18431844      ENDIF 
    1844       IF  iom_use("BEN_FE") THEN  
     1845      IF  (iom_use("BEN_FE")) THEN  
    18451846          med_diag%BEN_FE%dgsave = .TRUE. 
    18461847      ELSE  
    18471848          med_diag%BEN_FE%dgsave = .FALSE. 
    18481849      ENDIF 
    1849       IF  iom_use("BEN_C") THEN  
     1850      IF  (iom_use("BEN_C")) THEN  
    18501851          med_diag%BEN_C%dgsave = .TRUE. 
    18511852      ELSE  
    18521853          med_diag%BEN_C%dgsave = .FALSE. 
    18531854      ENDIF 
    1854       IF  iom_use("BEN_SI") THEN  
     1855      IF  (iom_use("BEN_SI")) THEN  
    18551856          med_diag%BEN_SI%dgsave = .TRUE. 
    18561857      ELSE  
    18571858          med_diag%BEN_SI%dgsave = .FALSE. 
    18581859      ENDIF 
    1859       IF  iom_use("BEN_CA") THEN  
     1860      IF  (iom_use("BEN_CA")) THEN  
    18601861          med_diag%BEN_CA%dgsave = .TRUE. 
    18611862      ELSE  
    18621863          med_diag%BEN_CA%dgsave = .FALSE. 
    18631864      ENDIF 
    1864       IF  iom_use("RUNOFF") THEN  
     1865      IF  (iom_use("RUNOFF")) THEN  
    18651866          med_diag%RUNOFF%dgsave = .TRUE. 
    18661867      ELSE  
    18671868          med_diag%RUNOFF%dgsave = .FALSE. 
    18681869      ENDIF 
    1869       IF  iom_use("RIV_N") THEN  
     1870      IF  (iom_use("RIV_N")) THEN  
    18701871          med_diag%RIV_N%dgsave = .TRUE. 
    18711872      ELSE  
    18721873          med_diag%RIV_N%dgsave = .FALSE. 
    18731874      ENDIF 
    1874       IF  iom_use("RIV_SI") THEN  
     1875      IF  (iom_use("RIV_SI")) THEN  
    18751876          med_diag%RIV_SI%dgsave = .TRUE. 
    18761877      ELSE  
    18771878          med_diag%RIV_SI%dgsave = .FALSE. 
    18781879      ENDIF 
    1879       IF  iom_use("RIV_C") THEN  
     1880      IF  (iom_use("RIV_C")) THEN  
    18801881          med_diag%RIV_C%dgsave = .TRUE. 
    18811882      ELSE  
    18821883          med_diag%RIV_C%dgsave = .FALSE. 
    18831884      ENDIF 
    1884       IF  iom_use("RIV_ALK") THEN  
     1885      IF  (iom_use("RIV_ALK")) THEN  
    18851886          med_diag%RIV_ALK%dgsave = .TRUE. 
    18861887      ELSE  
    18871888          med_diag%RIV_ALK%dgsave = .FALSE. 
    18881889      ENDIF 
    1889       IF  iom_use("DETC") THEN  
     1890      IF  (iom_use("DETC")) THEN  
    18901891          med_diag%DETC%dgsave = .TRUE. 
    18911892      ELSE  
    18921893          med_diag%DETC%dgsave = .FALSE. 
    18931894      ENDIF 
    1894       IF  iom_use("SDC__100") THEN  
     1895      IF  (iom_use("SDC__100")) THEN  
    18951896          med_diag%SDC__100%dgsave = .TRUE. 
    18961897      ELSE  
    18971898          med_diag%SDC__100%dgsave = .FALSE. 
    18981899      ENDIF 
    1899       IF  iom_use("SDC__200") THEN  
     1900      IF  (iom_use("SDC__200")) THEN  
    19001901          med_diag%SDC__200%dgsave = .TRUE. 
    19011902      ELSE  
    19021903          med_diag%SDC__200%dgsave = .FALSE. 
    19031904      ENDIF 
    1904       IF  iom_use("SDC__500") THEN  
     1905      IF  (iom_use("SDC__500")) THEN  
    19051906          med_diag%SDC__500%dgsave = .TRUE. 
    19061907      ELSE  
    19071908          med_diag%SDC__500%dgsave = .FALSE. 
    19081909      ENDIF 
    1909       IF  iom_use("SDC_1000") THEN  
     1910      IF  (iom_use("SDC_1000")) THEN  
    19101911          med_diag%SDC_1000%dgsave = .TRUE. 
    19111912      ELSE  
    19121913          med_diag%SDC_1000%dgsave = .FALSE. 
    19131914      ENDIF 
    1914       IF  iom_use("INVTC") THEN  
     1915      IF  (iom_use("INVTC")) THEN  
    19151916          med_diag%INVTC%dgsave = .TRUE. 
    19161917      ELSE  
    19171918          med_diag%INVTC%dgsave = .FALSE. 
    19181919      ENDIF 
    1919       IF  iom_use("INVTALK") THEN  
     1920      IF  (iom_use("INVTALK")) THEN  
    19201921          med_diag%INVTALK%dgsave = .TRUE. 
    19211922      ELSE  
    19221923          med_diag%INVTALK%dgsave = .FALSE. 
    19231924      ENDIF 
    1924       IF  iom_use("INVTO2") THEN  
     1925      IF  (iom_use("INVTO2")) THEN  
    19251926          med_diag%INVTO2%dgsave = .TRUE. 
    19261927      ELSE  
    19271928          med_diag%INVTO2%dgsave = .FALSE. 
    19281929      ENDIF 
    1929       IF  iom_use("LYSO_CA") THEN  
     1930      IF  (iom_use("LYSO_CA")) THEN  
    19301931          med_diag%LYSO_CA%dgsave = .TRUE. 
    19311932      ELSE  
    19321933          med_diag%LYSO_CA%dgsave = .FALSE. 
    19331934      ENDIF 
    1934       IF  iom_use("COM_RESP") THEN  
     1935      IF  (iom_use("COM_RESP")) THEN  
    19351936          med_diag%COM_RESP%dgsave = .TRUE. 
    19361937      ELSE  
    19371938          med_diag%COM_RESP%dgsave = .FALSE. 
    19381939      ENDIF 
    1939       IF  iom_use("PN_LLOSS") THEN  
     1940      IF  (iom_use("PN_LLOSS")) THEN  
    19401941          med_diag%PN_LLOSS%dgsave = .TRUE. 
    19411942      ELSE  
    19421943          med_diag%PN_LLOSS%dgsave = .FALSE. 
    19431944      ENDIF 
    1944       IF  iom_use("PD_LLOSS") THEN  
     1945      IF  (iom_use("PD_LLOSS")) THEN  
    19451946          med_diag%PD_LLOSS%dgsave = .TRUE. 
    19461947      ELSE  
    19471948          med_diag%PD_LLOSS%dgsave = .FALSE. 
    19481949      ENDIF 
    1949       IF  iom_use("ZI_LLOSS") THEN  
     1950      IF  (iom_use("ZI_LLOSS")) THEN  
    19501951          med_diag%ZI_LLOSS%dgsave = .TRUE. 
    19511952      ELSE  
    19521953          med_diag%ZI_LLOSS%dgsave = .FALSE. 
    19531954      ENDIF 
    1954       IF  iom_use("ZE_LLOSS") THEN  
     1955      IF  (iom_use("ZE_LLOSS")) THEN  
    19551956          med_diag%ZE_LLOSS%dgsave = .TRUE. 
    19561957      ELSE  
    19571958          med_diag%ZE_LLOSS%dgsave = .FALSE. 
    19581959      ENDIF 
    1959       IF  iom_use("ZI_MES_N") THEN  
     1960      IF  (iom_use("ZI_MES_N")) THEN  
    19601961          med_diag%ZI_MES_N%dgsave = .TRUE. 
    19611962      ELSE  
    19621963          med_diag%ZI_MES_N%dgsave = .FALSE. 
    19631964      ENDIF 
    1964       IF  iom_use("ZI_MES_D") THEN  
     1965      IF  (iom_use("ZI_MES_D")) THEN  
    19651966          med_diag%ZI_MES_D%dgsave = .TRUE. 
    19661967      ELSE  
    19671968          med_diag%ZI_MES_D%dgsave = .FALSE. 
    19681969      ENDIF 
    1969       IF  iom_use("ZI_MES_C") THEN  
     1970      IF  (iom_use("ZI_MES_C")) THEN  
    19701971          med_diag%ZI_MES_C%dgsave = .TRUE. 
    19711972      ELSE  
    19721973          med_diag%ZI_MES_C%dgsave = .FALSE. 
    19731974      ENDIF 
    1974       IF  iom_use("ZI_MESDC") THEN  
     1975      IF  (iom_use("ZI_MESDC")) THEN  
    19751976          med_diag%ZI_MESDC%dgsave = .TRUE. 
    19761977      ELSE  
    19771978          med_diag%ZI_MESDC%dgsave = .FALSE. 
    19781979      ENDIF 
    1979       IF  iom_use("ZI_EXCR") THEN  
     1980      IF  (iom_use("ZI_EXCR")) THEN  
    19801981          med_diag%ZI_EXCR%dgsave = .TRUE. 
    19811982      ELSE  
    19821983          med_diag%ZI_EXCR%dgsave = .FALSE. 
    19831984      ENDIF 
    1984       IF  iom_use("ZI_RESP") THEN  
     1985      IF  (iom_use("ZI_RESP")) THEN  
    19851986          med_diag%ZI_RESP%dgsave = .TRUE. 
    19861987      ELSE  
    19871988          med_diag%ZI_RESP%dgsave = .FALSE. 
    19881989      ENDIF 
    1989       IF  iom_use("ZI_GROW") THEN  
     1990      IF  (iom_use("ZI_GROW")) THEN  
    19901991          med_diag%ZI_GROW%dgsave = .TRUE. 
    19911992      ELSE  
    19921993          med_diag%ZI_GROW%dgsave = .FALSE. 
    19931994      ENDIF 
    1994       IF  iom_use("ZE_MES_N") THEN  
     1995      IF  (iom_use("ZE_MES_N")) THEN  
    19951996          med_diag%ZE_MES_N%dgsave = .TRUE. 
    19961997      ELSE  
    19971998          med_diag%ZE_MES_N%dgsave = .FALSE. 
    19981999      ENDIF 
    1999       IF  iom_use("ZE_MES_D") THEN  
     2000      IF  (iom_use("ZE_MES_D")) THEN  
    20002001          med_diag%ZE_MES_D%dgsave = .TRUE. 
    20012002      ELSE  
    20022003          med_diag%ZE_MES_D%dgsave = .FALSE. 
    20032004      ENDIF 
    2004       IF  iom_use("ZE_MES_C") THEN  
     2005      IF  (iom_use("ZE_MES_C")) THEN  
    20052006          med_diag%ZE_MES_C%dgsave = .TRUE. 
    20062007      ELSE  
    20072008          med_diag%ZE_MES_C%dgsave = .FALSE. 
    20082009      ENDIF 
    2009       IF  iom_use("ZE_MESDC") THEN  
     2010      IF  (iom_use("ZE_MESDC")) THEN  
    20102011          med_diag%ZE_MESDC%dgsave = .TRUE. 
    20112012      ELSE  
    20122013          med_diag%ZE_MESDC%dgsave = .FALSE. 
    20132014      ENDIF 
    2014       IF  iom_use("ZE_EXCR") THEN  
     2015      IF  (iom_use("ZE_EXCR")) THEN  
    20152016          med_diag%ZE_EXCR%dgsave = .TRUE. 
    20162017      ELSE  
    20172018          med_diag%ZE_EXCR%dgsave = .FALSE. 
    20182019      ENDIF 
    2019       IF  iom_use("ZE_RESP") THEN  
     2020      IF  (iom_use("ZE_RESP")) THEN  
    20202021          med_diag%ZE_RESP%dgsave = .TRUE. 
    20212022      ELSE  
    20222023          med_diag%ZE_RESP%dgsave = .FALSE. 
    20232024      ENDIF 
    2024       IF  iom_use("ZE_GROW") THEN  
     2025      IF  (iom_use("ZE_GROW")) THEN  
    20252026          med_diag%ZE_GROW%dgsave = .TRUE. 
    20262027      ELSE  
    20272028          med_diag%ZE_GROW%dgsave = .FALSE. 
    20282029      ENDIF 
    2029       IF  iom_use("MDETC") THEN  
     2030      IF  (iom_use("MDETC")) THEN  
    20302031          med_diag%MDETC%dgsave = .TRUE. 
    20312032      ELSE  
    20322033          med_diag%MDETC%dgsave = .FALSE. 
    20332034      ENDIF 
    2034       IF  iom_use("GMIDC") THEN  
     2035      IF  (iom_use("GMIDC")) THEN  
    20352036          med_diag%GMIDC%dgsave = .TRUE. 
    20362037      ELSE  
    20372038          med_diag%GMIDC%dgsave = .FALSE. 
    20382039      ENDIF 
    2039       IF  iom_use("GMEDC") THEN  
     2040      IF  (iom_use("GMEDC")) THEN  
    20402041          med_diag%GMEDC%dgsave = .TRUE. 
    20412042      ELSE  
    20422043          med_diag%GMEDC%dgsave = .FALSE. 
    20432044      ENDIF 
    2044       IF  iom_use("BASIN_01") THEN  
     2045      IF  (iom_use("BASIN_01")) THEN  
    20452046          med_diag%BASIN_01%dgsave = .TRUE. 
    20462047      ELSE  
    20472048          med_diag%BASIN_01%dgsave = .FALSE. 
    20482049      ENDIF 
    2049       IF  iom_use("BASIN_02") THEN  
     2050      IF  (iom_use("BASIN_02")) THEN  
    20502051          med_diag%BASIN_02%dgsave = .TRUE. 
    20512052      ELSE  
    20522053          med_diag%BASIN_02%dgsave = .FALSE. 
    20532054      ENDIF 
    2054       IF  iom_use("BASIN_03") THEN  
     2055      IF  (iom_use("BASIN_03")) THEN  
    20552056          med_diag%BASIN_03%dgsave = .TRUE. 
    20562057      ELSE  
    20572058          med_diag%BASIN_03%dgsave = .FALSE. 
    20582059      ENDIF 
    2059       IF  iom_use("BASIN_04") THEN  
     2060      IF  (iom_use("BASIN_04")) THEN  
    20602061          med_diag%BASIN_04%dgsave = .TRUE. 
    20612062      ELSE  
    20622063          med_diag%BASIN_04%dgsave = .FALSE. 
    20632064      ENDIF 
    2064       IF  iom_use("BASIN_05") THEN  
     2065      IF  (iom_use("BASIN_05")) THEN  
    20652066          med_diag%BASIN_05%dgsave = .TRUE. 
    20662067      ELSE  
    20672068          med_diag%BASIN_05%dgsave = .FALSE. 
    20682069      ENDIF 
    2069       IF  iom_use("BASIN_06") THEN  
     2070      IF  (iom_use("BASIN_06")) THEN  
    20702071          med_diag%BASIN_06%dgsave = .TRUE. 
    20712072      ELSE  
    20722073          med_diag%BASIN_06%dgsave = .FALSE. 
    20732074      ENDIF 
    2074       IF  iom_use("BASIN_07") THEN  
     2075      IF  (iom_use("BASIN_07")) THEN  
    20752076          med_diag%BASIN_07%dgsave = .TRUE. 
    20762077      ELSE  
    20772078          med_diag%BASIN_07%dgsave = .FALSE. 
    20782079      ENDIF 
    2079       IF  iom_use("BASIN_08") THEN  
     2080      IF  (iom_use("BASIN_08")) THEN  
    20802081          med_diag%BASIN_08%dgsave = .TRUE. 
    20812082      ELSE  
    20822083          med_diag%BASIN_08%dgsave = .FALSE. 
    20832084      ENDIF 
    2084       IF  iom_use("BASIN_09") THEN  
     2085      IF  (iom_use("BASIN_09")) THEN  
    20852086          med_diag%BASIN_09%dgsave = .TRUE. 
    20862087      ELSE  
    20872088          med_diag%BASIN_09%dgsave = .FALSE. 
    20882089      ENDIF 
    2089       IF  iom_use("BASIN_10") THEN  
     2090      IF  (iom_use("BASIN_10")) THEN  
    20902091          med_diag%BASIN_10%dgsave = .TRUE. 
    20912092      ELSE  
    20922093          med_diag%BASIN_10%dgsave = .FALSE. 
    20932094      ENDIF 
    2094       IF  iom_use("BASIN_11") THEN  
     2095      IF  (iom_use("BASIN_11")) THEN  
    20952096          med_diag%BASIN_11%dgsave = .TRUE. 
    20962097      ELSE  
    20972098          med_diag%BASIN_11%dgsave = .FALSE. 
    20982099      ENDIF 
    2099       IF  iom_use("BASIN_12") THEN  
     2100      IF  (iom_use("BASIN_12")) THEN  
    21002101          med_diag%BASIN_12%dgsave = .TRUE. 
    21012102      ELSE  
    21022103          med_diag%BASIN_12%dgsave = .FALSE. 
    21032104      ENDIF 
    2104       IF  iom_use("BASIN_13") THEN  
     2105      IF  (iom_use("BASIN_13")) THEN  
    21052106          med_diag%BASIN_13%dgsave = .TRUE. 
    21062107      ELSE  
    21072108          med_diag%BASIN_13%dgsave = .FALSE. 
    21082109      ENDIF 
    2109       IF  iom_use("BASIN_14") THEN  
     2110      IF  (iom_use("BASIN_14")) THEN  
    21102111          med_diag%BASIN_14%dgsave = .TRUE. 
    21112112      ELSE  
    21122113          med_diag%BASIN_14%dgsave = .FALSE. 
    21132114      ENDIF 
    2114       IF  iom_use("BASIN_15") THEN  
     2115      IF  (iom_use("BASIN_15")) THEN  
    21152116          med_diag%BASIN_15%dgsave = .TRUE. 
    21162117      ELSE  
    21172118          med_diag%BASIN_15%dgsave = .FALSE. 
    21182119      ENDIF 
    2119       IF  iom_use("BASIN_16") THEN  
     2120      IF  (iom_use("BASIN_16")) THEN  
    21202121          med_diag%BASIN_16%dgsave = .TRUE. 
    21212122      ELSE  
    21222123          med_diag%BASIN_16%dgsave = .FALSE. 
    21232124      ENDIF 
    2124       IF  iom_use("BASIN_17") THEN  
     2125      IF  (iom_use("BASIN_17")) THEN  
    21252126          med_diag%BASIN_17%dgsave = .TRUE. 
    21262127      ELSE  
    21272128          med_diag%BASIN_17%dgsave = .FALSE. 
    21282129      ENDIF 
    2129       IF  iom_use("BASIN_18") THEN  
     2130      IF  (iom_use("BASIN_18")) THEN  
    21302131          med_diag%BASIN_18%dgsave = .TRUE. 
    21312132      ELSE  
    21322133          med_diag%BASIN_18%dgsave = .FALSE. 
    21332134      ENDIF 
    2134       IF  iom_use("BASIN_19") THEN  
     2135      IF  (iom_use("BASIN_19")) THEN  
    21352136          med_diag%BASIN_19%dgsave = .TRUE. 
    21362137      ELSE  
    21372138          med_diag%BASIN_19%dgsave = .FALSE. 
    21382139      ENDIF 
    2139       IF  iom_use("BASIN_20") THEN  
     2140      IF  (iom_use("BASIN_20")) THEN  
    21402141          med_diag%BASIN_20%dgsave = .TRUE. 
    21412142      ELSE  
    21422143          med_diag%BASIN_20%dgsave = .FALSE. 
    21432144      ENDIF 
    2144       IF  iom_use("BASIN_21") THEN  
     2145      IF  (iom_use("BASIN_21")) THEN  
    21452146          med_diag%BASIN_21%dgsave = .TRUE. 
    21462147      ELSE  
    21472148          med_diag%BASIN_21%dgsave = .FALSE. 
    21482149      ENDIF 
    2149       IF  iom_use("BASIN_22") THEN  
     2150      IF  (iom_use("BASIN_22")) THEN  
    21502151          med_diag%BASIN_22%dgsave = .TRUE. 
    21512152      ELSE  
    21522153          med_diag%BASIN_22%dgsave = .FALSE. 
    21532154      ENDIF 
    2154       IF  iom_use("BASIN_23") THEN  
     2155      IF  (iom_use("BASIN_23")) THEN  
    21552156          med_diag%BASIN_23%dgsave = .TRUE. 
    21562157      ELSE  
    21572158          med_diag%BASIN_23%dgsave = .FALSE. 
    21582159      ENDIF 
    2159       IF  iom_use("BASIN_24") THEN  
     2160      IF  (iom_use("BASIN_24")) THEN  
    21602161          med_diag%BASIN_24%dgsave = .TRUE. 
    21612162      ELSE  
    21622163          med_diag%BASIN_24%dgsave = .FALSE. 
    21632164      ENDIF 
    2164       IF  iom_use("BASIN_25") THEN  
     2165      IF  (iom_use("BASIN_25")) THEN  
    21652166          med_diag%BASIN_25%dgsave = .TRUE. 
    21662167      ELSE  
    21672168          med_diag%BASIN_25%dgsave = .FALSE. 
    21682169      ENDIF 
    2169       IF  iom_use("BASIN_26") THEN  
     2170      IF  (iom_use("BASIN_26")) THEN  
    21702171          med_diag%BASIN_26%dgsave = .TRUE. 
    21712172      ELSE  
    21722173          med_diag%BASIN_26%dgsave = .FALSE. 
    21732174      ENDIF 
    2174       IF  iom_use("BASIN_27") THEN  
     2175      IF  (iom_use("BASIN_27")) THEN  
    21752176          med_diag%BASIN_27%dgsave = .TRUE. 
    21762177      ELSE  
    21772178          med_diag%BASIN_27%dgsave = .FALSE. 
    21782179      ENDIF 
    2179       IF  iom_use("BASIN_28") THEN  
     2180      IF  (iom_use("BASIN_28")) THEN  
    21802181          med_diag%BASIN_28%dgsave = .TRUE. 
    21812182      ELSE  
    21822183          med_diag%BASIN_28%dgsave = .FALSE. 
    21832184      ENDIF 
    2184       IF  iom_use("BASIN_29") THEN  
     2185      IF  (iom_use("BASIN_29")) THEN  
    21852186          med_diag%BASIN_29%dgsave = .TRUE. 
    21862187      ELSE  
    21872188          med_diag%BASIN_29%dgsave = .FALSE. 
    21882189      ENDIF 
    2189       IF  iom_use("BASIN_30") THEN  
     2190      IF  (iom_use("BASIN_30")) THEN  
    21902191          med_diag%BASIN_30%dgsave = .TRUE. 
    21912192      ELSE  
    21922193          med_diag%BASIN_30%dgsave = .FALSE. 
    21932194      ENDIF 
    2194       IF  iom_use("BASIN_31") THEN  
     2195      IF  (iom_use("BASIN_31")) THEN  
    21952196          med_diag%BASIN_31%dgsave = .TRUE. 
    21962197      ELSE  
    21972198          med_diag%BASIN_31%dgsave = .FALSE. 
    21982199      ENDIF 
    2199       IF  iom_use("BASIN_32") THEN  
     2200      IF  (iom_use("BASIN_32")) THEN  
    22002201          med_diag%BASIN_32%dgsave = .TRUE. 
    22012202      ELSE  
    22022203          med_diag%BASIN_32%dgsave = .FALSE. 
    22032204      ENDIF 
    2204       IF  iom_use("BASIN_33") THEN  
     2205      IF  (iom_use("BASIN_33")) THEN  
    22052206          med_diag%BASIN_33%dgsave = .TRUE. 
    22062207      ELSE  
    22072208          med_diag%BASIN_33%dgsave = .FALSE. 
    22082209      ENDIF 
    2209       IF  iom_use("BASIN_34") THEN  
     2210      IF  (iom_use("BASIN_34")) THEN  
    22102211          med_diag%BASIN_34%dgsave = .TRUE. 
    22112212      ELSE  
    22122213          med_diag%BASIN_34%dgsave = .FALSE. 
    22132214      ENDIF 
    2214       IF  iom_use("BASIN_35") THEN  
     2215      IF  (iom_use("BASIN_35")) THEN  
    22152216          med_diag%BASIN_35%dgsave = .TRUE. 
    22162217      ELSE  
    22172218          med_diag%BASIN_35%dgsave = .FALSE. 
    22182219      ENDIF 
    2219       IF  iom_use("BASIN_36") THEN  
     2220      IF  (iom_use("BASIN_36")) THEN  
    22202221          med_diag%BASIN_36%dgsave = .TRUE. 
    22212222      ELSE  
    22222223          med_diag%BASIN_36%dgsave = .FALSE. 
    22232224      ENDIF 
    2224       IF  iom_use("BASIN_37") THEN  
     2225      IF  (iom_use("BASIN_37")) THEN  
    22252226          med_diag%BASIN_37%dgsave = .TRUE. 
    22262227      ELSE  
    22272228          med_diag%BASIN_37%dgsave = .FALSE. 
    22282229      ENDIF 
    2229       IF  iom_use("BASIN_38") THEN  
     2230      IF  (iom_use("BASIN_38")) THEN  
    22302231          med_diag%BASIN_38%dgsave = .TRUE. 
    22312232      ELSE  
    22322233          med_diag%BASIN_38%dgsave = .FALSE. 
    22332234      ENDIF 
    2234       IF  iom_use("BASIN_39") THEN  
     2235      IF  (iom_use("BASIN_39")) THEN  
    22352236          med_diag%BASIN_39%dgsave = .TRUE. 
    22362237      ELSE  
    22372238          med_diag%BASIN_39%dgsave = .FALSE. 
    22382239      ENDIF 
    2239       IF  iom_use("BASIN_40") THEN  
     2240      IF  (iom_use("BASIN_40")) THEN  
    22402241          med_diag%BASIN_40%dgsave = .TRUE. 
    22412242      ELSE  
    22422243          med_diag%BASIN_40%dgsave = .FALSE. 
    22432244      ENDIF 
    2244       IF  iom_use("BASIN_41") THEN  
     2245      IF  (iom_use("BASIN_41")) THEN  
    22452246          med_diag%BASIN_41%dgsave = .TRUE. 
    22462247      ELSE  
    22472248          med_diag%BASIN_41%dgsave = .FALSE. 
    22482249      ENDIF 
    2249       IF  iom_use("BASIN_42") THEN  
     2250      IF  (iom_use("BASIN_42")) THEN  
    22502251          med_diag%BASIN_42%dgsave = .TRUE. 
    22512252      ELSE  
    22522253          med_diag%BASIN_42%dgsave = .FALSE. 
    22532254      ENDIF 
    2254       IF  iom_use("BASIN_43") THEN  
     2255      IF  (iom_use("BASIN_43")) THEN  
    22552256          med_diag%BASIN_43%dgsave = .TRUE. 
    22562257      ELSE  
    22572258          med_diag%BASIN_43%dgsave = .FALSE. 
    22582259      ENDIF 
    2259       IF  iom_use("BASIN_44") THEN  
     2260      IF  (iom_use("BASIN_44")) THEN  
    22602261          med_diag%BASIN_44%dgsave = .TRUE. 
    22612262      ELSE  
    22622263          med_diag%BASIN_44%dgsave = .FALSE. 
    22632264      ENDIF 
    2264       IF  iom_use("BASIN_45") THEN  
     2265      IF  (iom_use("BASIN_45")) THEN  
    22652266          med_diag%BASIN_45%dgsave = .TRUE. 
    22662267      ELSE  
    22672268          med_diag%BASIN_45%dgsave = .FALSE. 
    22682269      ENDIF 
    2269       IF  iom_use("INT_ZMI") THEN  
     2270      IF  (iom_use("INT_ZMI")) THEN  
    22702271          med_diag%INT_ZMI%dgsave = .TRUE. 
    22712272      ELSE  
    22722273          med_diag%INT_ZMI%dgsave = .FALSE. 
    22732274      ENDIF 
    2274       IF  iom_use("INT_ZME") THEN  
     2275      IF  (iom_use("INT_ZME")) THEN  
    22752276          med_diag%INT_ZME%dgsave = .TRUE. 
    22762277      ELSE  
    22772278          med_diag%INT_ZME%dgsave = .FALSE. 
    22782279      ENDIF 
    2279       IF  iom_use("INT_DET") THEN  
     2280      IF  (iom_use("INT_DET")) THEN  
    22802281          med_diag%INT_DET%dgsave = .TRUE. 
    22812282      ELSE  
    22822283          med_diag%INT_DET%dgsave = .FALSE. 
    22832284      ENDIF 
    2284       IF  iom_use("INT_DTC") THEN  
     2285      IF  (iom_use("INT_DTC")) THEN  
    22852286          med_diag%INT_DTC%dgsave = .TRUE. 
    22862287      ELSE  
    22872288          med_diag%INT_DTC%dgsave = .FALSE. 
    22882289      ENDIF 
    2289       IF  iom_use("DMS_SURF") THEN  
     2290      IF  (iom_use("DMS_SURF")) THEN  
    22902291          med_diag%DMS_SURF%dgsave = .TRUE. 
    22912292      ELSE  
    22922293          med_diag%DMS_SURF%dgsave = .FALSE. 
    22932294      ENDIF 
    2294       IF  iom_use("DMS_ANDR") THEN  
     2295      IF  (iom_use("DMS_ANDR")) THEN  
    22952296          med_diag%DMS_ANDR%dgsave = .TRUE. 
    22962297      ELSE  
    22972298          med_diag%DMS_ANDR%dgsave = .FALSE. 
    22982299      ENDIF 
    2299       IF  iom_use("DMS_SIMO") THEN  
     2300      IF  (iom_use("DMS_SIMO")) THEN  
    23002301          med_diag%DMS_SIMO%dgsave = .TRUE. 
    23012302      ELSE  
    23022303          med_diag%DMS_SIMO%dgsave = .FALSE. 
    23032304      ENDIF 
    2304       IF  iom_use("DMS_ARAN") THEN  
     2305      IF  (iom_use("DMS_ARAN")) THEN  
    23052306          med_diag%DMS_ARAN%dgsave = .TRUE. 
    23062307      ELSE  
    23072308          med_diag%DMS_ARAN%dgsave = .FALSE. 
    23082309      ENDIF 
    2309       IF  iom_use("DMS_HALL") THEN  
     2310      IF  (iom_use("DMS_HALL")) THEN  
    23102311          med_diag%DMS_HALL%dgsave = .TRUE. 
    23112312      ELSE  
    23122313          med_diag%DMS_HALL%dgsave = .FALSE. 
    23132314      ENDIF 
    2314       IF  iom_use("TPP3") THEN  
     2315      IF  (iom_use("TPP3")) THEN  
    23152316          med_diag%TPP3%dgsave = .TRUE. 
    23162317      ELSE  
    23172318          med_diag%TPP3%dgsave = .FALSE. 
    23182319      ENDIF 
    2319       IF  iom_use("DETFLUX3") THEN  
     2320      IF  (iom_use("DETFLUX3")) THEN  
    23202321          med_diag%DETFLUX3%dgsave = .TRUE. 
    23212322      ELSE  
    23222323          med_diag%DETFLUX3%dgsave = .FALSE. 
    23232324      ENDIF 
    2324       IF  iom_use("REMIN3N") THEN  
     2325      IF  (iom_use("REMIN3N")) THEN  
    23252326          med_diag%REMIN3N%dgsave = .TRUE. 
    23262327      ELSE  
    23272328          med_diag%REMIN3N%dgsave = .FALSE. 
    23282329      ENDIF 
    2329       IF  iom_use("PH3") THEN  
     2330      IF  (iom_use("PH3")) THEN  
    23302331          med_diag%PH3%dgsave = .TRUE. 
    23312332      ELSE  
    23322333          med_diag%PH3%dgsave = .FALSE. 
    23332334      ENDIF 
    2334       IF  iom_use("OM_CAL3") THEN  
     2335      IF  (iom_use("OM_CAL3")) THEN  
    23352336          med_diag%OM_CAL3%dgsave = .TRUE. 
    23362337      ELSE  
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcsed_medusa.F90

    r5931 r5937  
    2323   !! AXY (10/02/09) 
    2424   USE iom 
    25     USE trc_nam_dia         ! JPALM 13-11-2015 -- if iom_use for diag 
    26     USE trc_nam_iom_medusa  ! JPALM 13-11-2015 -- if iom_use for diag 
     25   !! USE trc_nam_dia         ! JPALM 13-11-2015 -- if iom_use for diag 
     26   !! USE trc_nam_iom_medusa  ! JPALM 13-11-2015 -- if iom_use for diag 
    2727 
    2828   USE lbclnk 
     
    4242   !! AXY (10/02/09) 
    4343   LOGICAL, PUBLIC ::                  & 
    44       bdustfer = .TRUE. 
     44      bdustfer = .FALSE. 
    4545   REAL(wp), PUBLIC ::                 & 
    4646      sedfeinput = 1.e-9_wp  ,         & 
     
    185185               ENDIF     
    186186                 
    187                   . 
    188187            END DO 
    189188         END DO 
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trc.F90

    r5931 r5937  
    139139                  TPP3, DETFLUX3, REMIN3N, PH3, OM_CAL3       
    140140                  !! list of all MEDUSA diagnostics that could be called by iom_use 
    141    END TYPE DIAG_IOM           
     141   END TYPE DIAG_IOM   
     142   !! 
     143   TYPE(DIAG_IOM), PUBLIC :: med_diag  ! define which diagnostics are asked in outputs 
    142144# endif                    
    143145 
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

    r5931 r5937  
    434434      !!                ( (PISCES, CFC, MY_TRC ) 
    435435      !!--------------------------------------------------------------------- 
    436 #if defined key_medusa && defined key_iomput 
    437       TYPE(DIAG_IOM), PUBLIC :: med_diag  ! define which diagnostics are asked in outputs 
    438 #endif       
    439436      INTEGER ::  ierr 
    440437#if defined key_trdmxl_trc  || defined key_trdtrc 
Note: See TracChangeset for help on using the changeset viewer.