Changeset 8243 for branches/UKMO/test_moci_test_suite/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

Timestamp:

2017-06-29T11:41:55+02:00 (7 years ago)

Author:

andmirek

Message:

#1914 working XIOS read, XIOS write and single processor read

File:

• branches/UKMO/test_moci_test_suite/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90 (modified) (4 diffs)

branches/UKMO/test_moci_test_suite/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

@@ -84 +84 @@
    
    REAL(wp) ::   eps20  = 1.e-20   ! constant values
+   LOGICAL ::    ln_clio_sio       ! single processor read
    
    !! * Substitutions
@@ -137 +138 @@
       !!
       NAMELIST/namsbc_clio/ cn_dir, sn_utau, sn_vtau, sn_wndm, sn_humi,   &
-         &                          sn_ccov, sn_tair, sn_prec
+         &                          sn_ccov, sn_tair, sn_prec, ln_clio_sio
       !!---------------------------------------------------------------------
 
@@ -143 +144 @@
       IF( kt == nit000 ) THEN                   !  First call kt=nit000  !
          !                                      ! ====================== !
-
+         ln_clio_sio = .FALSE.
          REWIND( numnam_ref )              ! Namelist namsbc_clio in reference namelist : CLIO files
          READ  ( numnam_ref, namsbc_clio, IOSTAT = ios, ERR = 901)
@@ -180 +181 @@
       !                                         ! ====================== !
       !
+      lspr = ln_clio_sio
       CALL fld_read( kt, nn_fsbc, sf )                ! input fields provided at the current time-step
+      lspr = .false.
       !
       IF( MOD( kt - 1, nn_fsbc ) == 0 )   CALL blk_oce_clio( sf, sst_m )