Changeset 3903
- Timestamp:
- 2013-05-17T17:09:19+02:00 (11 years ago)
- Location:
- trunk/NEMOGCM/NEMO/SAS_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90
r3769 r3903 382 382 USE diawri , ONLY: dia_wri_alloc 383 383 USE dom_oce , ONLY: dom_oce_alloc 384 ! 385 INTEGER :: ierr 384 USE oce , ONLY : sshn, sshb, snwice_mass, snwice_mass_b, snwice_fmass 385 ! 386 INTEGER :: ierr,ierr4 386 387 !!---------------------------------------------------------------------- 387 388 ! … … 389 390 ierr = ierr + dom_oce_alloc () ! ocean domain 390 391 ierr = ierr + lib_mpp_alloc (numout) ! mpp exchanges 392 ALLOCATE( snwice_mass(jpi,jpj) , snwice_mass_b(jpi,jpj), & 393 & snwice_fmass(jpi,jpj), STAT= ierr4 ) 394 ierr = ierr + ierr4 391 395 ! 392 396 IF( lk_mpp ) CALL mpp_sum( ierr ) -
trunk/NEMOGCM/NEMO/SAS_SRC/sbcssm.F90
r3873 r3903 279 279 ! so allocate enough of arrays to use 280 280 ! 281 ierr3 = 0 281 282 jpm = MAX(jp_tem, jp_sal) 282 283 ALLOCATE( tsn(jpi,jpj,1,jpm), STAT=ierr0 )
Note: See TracChangeset
for help on using the changeset viewer.