Changeset 11874


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

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

Location:
NEMO/branches/2019/dev_r11265_ASINTER-01_Guillaume_ABL1D/src/OCE
Files:
2 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 
  • NEMO/branches/2019/dev_r11265_ASINTER-01_Guillaume_ABL1D/src/OCE/SBC/sbcmod.F90

    r11413 r11874  
    340340      IF( ln_blk      )   CALL sbc_blk_init            ! bulk formulae initialization 
    341341 
    342       IF( ln_abl      )    CALL sbc_abl_init           ! Atmospheric Boundary Layer (ABL) 
     342      IF( ln_abl      )   CALL sbc_abl_init            ! Atmospheric Boundary Layer (ABL) 
    343343 
    344344      IF( ln_ssr      )   CALL sbc_ssr_init            ! Sea-Surface Restoring initialization 
Note: See TracChangeset for help on using the changeset viewer.