New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 9366 for branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90 – NEMO

Ignore:
Timestamp:
2018-02-28T16:29:13+01:00 (6 years ago)
Author:
andmirek
Message:

#2050 first version. Compiled OK in moci test suite

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90

    r8243 r9366  
    3333 
    3434   PUBLIC   sbc_isf, sbc_isf_div, sbc_isf_alloc  ! routine called in sbcmod and divcur 
     35   PRIVATE  isf_namelist 
    3536 
    3637   ! public in order to be able to output then  
     
    105106         !                                      ! ====================== ! 
    106107         ln_isf_sio = .FALSE. 
    107          REWIND( numnam_ref )              ! Namelist namsbc_rnf in reference namelist : Runoffs  
    108          READ  ( numnam_ref, namsbc_isf, IOSTAT = ios, ERR = 901) 
    109 901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_isf in reference namelist', lwp ) 
    110  
    111          REWIND( numnam_cfg )              ! Namelist namsbc_rnf in configuration namelist : Runoffs 
    112          READ  ( numnam_cfg, namsbc_isf, IOSTAT = ios, ERR = 902 ) 
    113 902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_isf in configuration namelist', lwp ) 
     108         IF(lwm) THEN 
     109            REWIND( numnam_ref )              ! Namelist namsbc_rnf in reference namelist : Runoffs  
     110            READ  ( numnam_ref, namsbc_isf, IOSTAT = ios, ERR = 901) 
     111901         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_isf in reference namelist', lwm ) 
     112            REWIND( numnam_cfg )              ! Namelist namsbc_rnf in configuration namelist : Runoffs 
     113            READ  ( numnam_cfg, namsbc_isf, IOSTAT = ios, ERR = 902 ) 
     114902         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_isf in configuration namelist', lwm ) 
     115         ENDIF 
     116 
    114117         IF(lwm) WRITE ( numond, namsbc_isf ) 
    115118 
     119         CALL isf_namelist(ln_isf_sio) 
    116120 
    117121         IF ( lwp ) WRITE(numout,*) 
     
    944948      ! 
    945949   END SUBROUTINE sbc_isf_div 
    946                          
     950 
     951   SUBROUTINE isf_namelist(ld_isf_sio) 
     952     !!--------------------------------------------------------------------- 
     953     !!                   ***  ROUTINE isf_namelist  *** 
     954     !!                      
     955     !! ** Purpose :   Broadcast namelist variables read by procesor lwm 
     956     !! 
     957     !! ** Method  :   use lib_mpp 
     958     !!---------------------------------------------------------------------- 
     959     LOGICAL :: ld_isf_sio 
     960#if defined key_mpp_mpi 
     961       CALL mpp_bcast(nn_isfblk) 
     962       CALL mpp_bcast(rn_hisf_tbl) 
     963       CALL mpp_bcast(ln_divisf) 
     964       CALL mpp_bcast(ln_conserve) 
     965       CALL mpp_bcast(rn_gammat0) 
     966       CALL mpp_bcast(rn_gammas0) 
     967       CALL mpp_bcast(nn_gammablk) 
     968       CALL fld_n_bcast(sn_fwfisf) 
     969       CALL fld_n_bcast(sn_qisf) 
     970       CALL fld_n_bcast(sn_rnfisf) 
     971       CALL fld_n_bcast(sn_depmax_isf) 
     972       CALL fld_n_bcast(sn_depmin_isf) 
     973       CALL fld_n_bcast(sn_Leff_isf) 
     974       CALL mpp_bcast(ld_isf_sio) 
     975#endif 
     976   END SUBROUTINE isf_namelist 
     977 
    947978   FUNCTION tinsitu( ptem, psal, ppress ) RESULT( pti ) 
    948979      !!---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.