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 3873 for trunk/NEMOGCM/NEMO/SAS_SRC/sbcssm.F90 – NEMO

Ignore:
Timestamp:
2013-04-15T14:36:02+02:00 (9 years ago)
Author:
clevy
Message:

Bugfixes in SAS_SRC : diawri.F90 and sbcssm.F90, see ticket #1077

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/SAS_SRC/sbcssm.F90

    r3364 r3873  
    8181       
    8282      ! 
     83      IF (kt == nn_it000 ) CALL sbc_ssm_init() 
     84 
    8385      IF( nn_timing == 1 )  CALL timing_start( 'sbc_ssm') 
    8486 
     
    100102      tsn(:,:,1,jp_tem) = sst_m(:,:) 
    101103      tsn(:,:,1,jp_sal) = sss_m(:,:) 
     104      IF ( nn_ice == 1 ) THEN 
     105         tsb(:,:,1,jp_tem) = sst_m(:,:) 
     106         tsb(:,:,1,jp_sal) = sss_m(:,:) 
     107      ENDIF 
    102108      ub (:,:,1       ) = ssu_m(:,:) 
    103109      vb (:,:,1       ) = ssv_m(:,:) 
     
    135141      TYPE(FLD_N) :: sn_usp, sn_vsp, sn_ssh 
    136142      ! 
    137       NAMELIST/namsbc_ssm/cn_dir, ln_3d_uv, sn_tem, sn_sal, sn_usp, sn_vsp, sn_ssh 
     143      NAMELIST/namsbc_sas/cn_dir, ln_3d_uv, sn_tem, sn_sal, sn_usp, sn_vsp, sn_ssh 
    138144 
    139145      !!---------------------------------------------------------------------- 
     
    151157      ! 
    152158      REWIND( numnam )                          ! read in namlist namsbc_ssm 
    153       READ  ( numnam, namsbc_ssm ) 
     159      READ  ( numnam, namsbc_sas ) 
    154160      !                                         ! store namelist information in an array 
    155161      !                                         ! Control print 
    156162      IF(lwp) THEN 
    157163         WRITE(numout,*) 
    158          WRITE(numout,*) 'sbc_ssm : standalone surface scheme ' 
     164         WRITE(numout,*) 'sbc_sas : standalone surface scheme ' 
    159165         WRITE(numout,*) '~~~~~~~~~~~ ' 
    160          WRITE(numout,*) '   Namelist namsbc_ssm' 
     166         WRITE(numout,*) '   Namelist namsbc_sas' 
    161167         WRITE(numout,*) 
    162168      ENDIF 
     
    277283      ALLOCATE( ub(jpi,jpj,1)     , STAT=ierr1 ) 
    278284      ALLOCATE( vb(jpi,jpj,1)     , STAT=ierr2 ) 
    279       ierr = ierr0 + ierr1 + ierr2 
     285      IF ( nn_ice == 1 ) ALLOCATE( tsb(jpi,jpj,1,jpm), STAT=ierr3 ) 
     286      ierr = ierr0 + ierr1 + ierr2 + ierr3 
    280287      IF( ierr > 0 ) THEN 
    281288         CALL ctl_stop('sbc_ssm_init: unable to allocate surface arrays') 
Note: See TracChangeset for help on using the changeset viewer.