Changeset 5982


Ignore:
Timestamp:
2015-12-02T16:50:22+01:00 (5 years ago)
Author:
jpalmier
Message:

JPALM —02-12-2015— iom-use debugg

File:
1 edited

Legend:

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

    r5978 r5982  
    37803780                      !CALL iom_put( "TPP3"  , tpp3d ) 
    37813781                  ENDIF 
    3782  
    37833782                  IF( med_diag%REMIN3N%dgsave ) THEN 
    37843783                      remin3dn(ji,jj,jk) = fregen + (freminn * fthk)  !! remineralisation 
    37853784                      !CALL iom_put( "REMIN3N"  , remin3dn ) 
    37863785                  ENDIF 
    3787                   IF( med_diag%PH3%dgsave ) THEN 
    3788                       CALL iom_put( "PH3"  , f3_pH ) 
    3789                   ENDIF 
    3790                   IF( med_diag%OM_CAL3%dgsave ) THEN 
    3791                       CALL iom_put( "OM_CAL3"  , f3_omcal ) 
    3792                   ENDIF 
     3786                  !! IF( med_diag%PH3%dgsave ) THEN 
     3787                  !!     CALL iom_put( "PH3"  , f3_pH ) 
     3788                  !!  ENDIF 
     3789                  !! IF( med_diag%OM_CAL3%dgsave ) THEN 
     3790                  !!     CALL iom_put( "OM_CAL3"  , f3_omcal ) 
     3791                  !! ENDIF 
    37933792         !! 
    37943793         !! 
     
    41604159                     ENDIF 
    41614160                     IF( med_diag%MED_XPAR%dgsave ) THEN 
    4162                          CALL iom_put( "MED_XPAR"  , xpar ) ! 
     4161                         CALL iom_put( "MED_XPAR"  , xpar(:,:,jk) ) ! 
    41634162                     ENDIF        
    41644163                     IF( med_diag%OCAL_CCD%dgsave ) THEN 
Note: See TracChangeset for help on using the changeset viewer.