Ignore:
Timestamp:
2019-11-07T18:18:21+01:00 (15 months ago)
Author:
gsamson
Message:

dev_r11265_ABL: output surface now ABL fields in output.init.nc file when nn_istate=1 (#2131)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11265_ASINTER-01_Guillaume_ABL1D/src/OCE/DIA/diawri.F90

    r11586 r11874  
    10041004         CALL iom_rstput( 0, 0, inum, 'sdvecrtz', wsd            )    ! now StokesDrift k-velocity 
    10051005      ENDIF 
     1006      IF ( ln_abl ) THEN 
     1007         CALL iom_rstput ( 0, 0, inum, "uz1_abl",   u_abl(:,:,2,nt_a  ) )   ! now first level i-wind 
     1008         CALL iom_rstput ( 0, 0, inum, "vz1_abl",   v_abl(:,:,2,nt_a  ) )   ! now first level j-wind 
     1009         CALL iom_rstput ( 0, 0, inum, "tz1_abl",  tq_abl(:,:,2,nt_a,1) )   ! now first level temperature 
     1010         CALL iom_rstput ( 0, 0, inum, "qz1_abl",  tq_abl(:,:,2,nt_a,2) )   ! now first level humidity 
     1011      ENDIF 
    10061012  
    10071013#if defined key_si3 
Note: See TracChangeset for help on using the changeset viewer.