Ignore:
Timestamp:
2020-04-08T11:42:02+02:00 (8 months ago)
Author:
davestorkey
Message:

branches/2020/r4.0-HEAD_ticket2425 : first guess solution

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/r4.0-HEAD_ticket2425/src/OCE/DIA/diaar5.F90

    r12631 r12712  
    185185         CALL iom_put( 'botpres', zbotpres ) 
    186186         ! 
     187      ELSE IF( iom_use('rhop') ) THEN ! we want just the density field, not steric SSH or botpres 
     188         CALL eos( tsn, zrhd, zrhop, gdept_n(:,:,:) )                 ! now in situ and potential density 
     189         zrhop(:,:,jpk) = 0._wp 
     190         CALL iom_put( 'rhop', zrhop ) 
    187191      ENDIF 
    188192 
     
    392396      IF(   iom_use( 'voltot'  ) .OR. iom_use( 'sshtot'    )  .OR. iom_use( 'sshdyn' )  .OR.  &  
    393397         &  iom_use( 'masstot' ) .OR. iom_use( 'temptot'   )  .OR. iom_use( 'saltot' ) .OR.  &     
    394          &  iom_use( 'botpres' ) .OR. iom_use( 'sshthster' )  .OR. iom_use( 'sshsteric' )  ) L_ar5 = .TRUE. 
     398         &  iom_use( 'botpres' ) .OR. iom_use( 'sshthster' )  .OR. iom_use( 'sshsteric' ) .OR. & 
     399         &  iom_use( 'rhop' )  ) L_ar5 = .TRUE. 
    395400   
    396401      IF( l_ar5 ) THEN 
Note: See TracChangeset for help on using the changeset viewer.