Ignore:
Timestamp:
2017-09-01T17:28:24+02:00 (3 years ago)
Author:
jpalmier
Message:

JPALM — mld chl — remove quick and dirty hacks

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_GO6_MEDUSA_conserv/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_fin.F90

    r8489 r8490  
    256256         ENDIF 
    257257         IF ( med_diag%OCAL_LVL%dgsave ) THEN 
    258        !! AXY (16/08/17): hijack! 
    259             CALL iom_put( "OCAL_LVL"  , fchl_ml ) 
    260             !! CALL iom_put( "OCAL_LVL"  , fccd ) 
     258            CALL iom_put( "OCAL_LVL"  , fccd ) 
     259         ENDIF 
     260         IF ( med_diag%CHL_MLD%dgsave ) THEN 
     261            CALL iom_put( "CHL_MLD"  , fchl_ml ) 
    261262         ENDIF 
    262263         IF ( med_diag%PN_JLIM%dgsave ) THEN 
Note: See TracChangeset for help on using the changeset viewer.