Ticket #1738: sbcmod_tam.F90.diff

File sbcmod_tam.F90.diff, 760 bytes (added by sam, 3 years ago)
  • sbcmod_tam.F90

    old new  
    8989      !!---------------------------------------------------------------------- 
    9090      IF (lfirst) THEN 
    9191 
     92         nsbc = 0 
     93         IF (ln_flx) THEN 
     94            nsbc = 2 
     95            IF (lwp) WRITE(numout, *) 'sbc_init_tam: flux formulation' 
     96         ELSE 
     97            IF (lwp) WRITE(numout, *) 'sbc_init_tam: analytical SBC formulation '// & 
     98                 &                    '              of GYRE configuration' 
     99         ENDIF 
    92100         !CALL sbc_init 
    93101         IF( nn_ice == 0  )   fr_i_tl(:,:) = 0.e0       ! no ice in the domain, ice fraction is always zero 
    94102         lfirst = .FALSE.