Changeset 3903 for trunk/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90
- Timestamp:
- 2013-05-17T17:09:19+02:00 (11 years ago)
- File:
-
- 1 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 )
Note: See TracChangeset
for help on using the changeset viewer.