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 6165 for trunk/NEMOGCM/NEMO – NEMO

Changeset 6165 for trunk/NEMOGCM/NEMO


Ignore:
Timestamp:
2015-12-23T20:23:54+01:00 (8 years ago)
Author:
mocavero
Message:

un,vn allocation, see ticket #1615

Location:
trunk/NEMOGCM/NEMO
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r6140 r6165  
    10231023         ssu_m(:,:) = frcv(jpr_ocx1)%z3(:,:,1) 
    10241024         ub (:,:,1) = ssu_m(:,:)                             ! will be used in sbcice_lim in the call of lim_sbc_tau 
     1025         un (:,:,1) = ssu_m(:,:)                             ! will be used in sbc_cpl_snd if atmosphere coupling 
    10251026         CALL iom_put( 'ssu_m', ssu_m ) 
    10261027      ENDIF 
     
    10281029         ssv_m(:,:) = frcv(jpr_ocy1)%z3(:,:,1) 
    10291030         vb (:,:,1) = ssv_m(:,:)                             ! will be used in sbcice_lim in the call of lim_sbc_tau 
     1031         vn (:,:,1) = ssv_m(:,:)                             ! will be used in sbc_cpl_snd if atmosphere coupling 
    10301032         CALL iom_put( 'ssv_m', ssv_m ) 
    10311033      ENDIF 
  • trunk/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90

    r6140 r6165  
    521521#endif 
    522522      ! 
    523       INTEGER :: ierr,ierr1,ierr2,ierr3,ierr4,ierr5,ierr6 
     523      INTEGER :: ierr,ierr1,ierr2,ierr3,ierr4,ierr5,ierr6,ierr7,ierr8 
    524524      INTEGER :: jpm 
    525525      !!---------------------------------------------------------------------- 
     
    545545      ALLOCATE( tsb(jpi,jpj,1,jpm)  , STAT=ierr5 ) 
    546546      ALLOCATE( sshn(jpi,jpj)       , STAT=ierr6 ) 
    547       ierr = ierr + ierr1 + ierr2 + ierr3 + ierr4 + ierr5 + ierr6  
     547      ALLOCATE( un(jpi,jpj,1)       , STAT=ierr7 ) 
     548      ALLOCATE( vn(jpi,jpj,1)       , STAT=ierr8 ) 
     549      ierr = ierr + ierr1 + ierr2 + ierr3 + ierr4 + ierr5 + ierr6 + ierr7 + ierr8 
    548550#endif 
    549551      ! 
Note: See TracChangeset for help on using the changeset viewer.