Changeset 5230


Ignore:
Timestamp:
2015-04-22T09:59:58+02:00 (6 years ago)
Author:
cetlod
Message:

NEMOGCM_dev_r5204_CNRS_PISCES_dcy : no need to output qsr_mean as it it already done in sea-ice model

Location:
branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r5227 r5230  
    418418         CALL iom_put( "qns"   , qns        )                   ! solar heat flux 
    419419         CALL iom_put( "qsr"   ,       qsr  )                   ! solar heat flux 
    420          IF( l_trcdm2dc ) CALL iom_put( "qsr_mean" ,       qsr_mean  )                   ! daily mean solar heat flux 
    421420         IF( nn_ice > 0 )   CALL iom_put( "ice_cover", fr_i )   ! ice fraction  
    422421         CALL iom_put( "taum"  , taum       )                   ! wind stress module  
  • branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zopt.F90

    r5206 r5230  
    215215        IF( jnt == nrdttrc  ) THEN 
    216216           IF( iom_use( "Heup" ) ) CALL iom_put( "Heup", heup(:,:  ) * tmask(:,:,1) )  ! euphotic layer deptht 
    217            IF( iom_use( "PAR"  ) ) CALL iom_put( "PAR" , emoy(:,:,:) * tmask(:,:,:) )  ! Photosynthetically Available Radiation 
     217           IF( iom_use( "PAR"  ) ) CALL iom_put( "PAR" , zpar(:,:,:) * tmask(:,:,:) )  ! Photosynthetically Available Radiation 
    218218        ENDIF 
    219219      ELSE 
Note: See TracChangeset for help on using the changeset viewer.