Changeset 11874 for NEMO/branches/2019

Timestamp:

2019-11-07T18:18:21+01:00 (4 years 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:

• DIA/diawri.F90 (modified) (1 diff)
• SBC/sbcmod.F90 (modified) (1 diff)

NEMO/branches/2019/dev_r11265_ASINTER-01_Guillaume_ABL1D/src/OCE/DIA/diawri.F90

@@ -1004 +1004 @@
          CALL iom_rstput( 0, 0, inum, 'sdvecrtz', wsd            )    ! now StokesDrift k-velocity
       ENDIF
+      IF ( ln_abl ) THEN
+         CALL iom_rstput ( 0, 0, inum, "uz1_abl",   u_abl(:,:,2,nt_a  ) )   ! now first level i-wind
+         CALL iom_rstput ( 0, 0, inum, "vz1_abl",   v_abl(:,:,2,nt_a  ) )   ! now first level j-wind
+         CALL iom_rstput ( 0, 0, inum, "tz1_abl",  tq_abl(:,:,2,nt_a,1) )   ! now first level temperature
+         CALL iom_rstput ( 0, 0, inum, "qz1_abl",  tq_abl(:,:,2,nt_a,2) )   ! now first level humidity
+      ENDIF
  
 #if defined key_si3

NEMO/branches/2019/dev_r11265_ASINTER-01_Guillaume_ABL1D/src/OCE/SBC/sbcmod.F90

@@ -340 +340 @@
       IF( ln_blk      )   CALL sbc_blk_init            ! bulk formulae initialization
 
-      IF( ln_abl      )    CALL sbc_abl_init           ! Atmospheric Boundary Layer (ABL)
+      IF( ln_abl      )   CALL sbc_abl_init            ! Atmospheric Boundary Layer (ABL)
 
       IF( ln_ssr      )   CALL sbc_ssr_init            ! Sea-Surface Restoring initialization