Changeset 6165 for trunk/NEMOGCM
- Timestamp:
- 2015-12-23T20:23:54+01:00 (8 years ago)
- Location:
- trunk/NEMOGCM/NEMO
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r6140 r6165 1023 1023 ssu_m(:,:) = frcv(jpr_ocx1)%z3(:,:,1) 1024 1024 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 1025 1026 CALL iom_put( 'ssu_m', ssu_m ) 1026 1027 ENDIF … … 1028 1029 ssv_m(:,:) = frcv(jpr_ocy1)%z3(:,:,1) 1029 1030 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 1030 1032 CALL iom_put( 'ssv_m', ssv_m ) 1031 1033 ENDIF -
trunk/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90
r6140 r6165 521 521 #endif 522 522 ! 523 INTEGER :: ierr,ierr1,ierr2,ierr3,ierr4,ierr5,ierr6 523 INTEGER :: ierr,ierr1,ierr2,ierr3,ierr4,ierr5,ierr6,ierr7,ierr8 524 524 INTEGER :: jpm 525 525 !!---------------------------------------------------------------------- … … 545 545 ALLOCATE( tsb(jpi,jpj,1,jpm) , STAT=ierr5 ) 546 546 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 548 550 #endif 549 551 !
Note: See TracChangeset
for help on using the changeset viewer.