Changeset 2313 for branches/nemo_v3_3_beta
- Timestamp:
- 2010-10-25T17:19:12+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/nemo_v3_3_beta/NEMOGCM/NEMO/LIM_SRC_3/limdia.F90
r2287 r2313 19 19 USE in_out_manager 20 20 USE par_ice ! ice parameters 21 USE sbc_ice ! ice variables 22 USE daymod 21 23 USE dom_ice 22 24 USE ice … … 25 27 USE dom_oce 26 28 USE sbc_oce ! Surface boundary condition: ocean fields 29 USE dom_oce 30 USE lib_mpp 27 31 28 32 IMPLICIT NONE … … 75 79 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 76 80 !!---------------------------------------------------------------------- 81 77 82 78 83 CONTAINS … … 445 450 INTEGER :: jv , & ! dummy loop indice 446 451 & ntot , & 447 & ndeb 452 & ndeb , & 453 & irecl 448 454 449 455 REAL(wp) :: zxx0, zxx1 ! temporary scalars 450 456 451 457 CHARACTER(len=jpchinf) :: titinf 458 CHARACTER(len=50) :: clname 452 459 !!------------------------------------------------------------------- 453 460 … … 573 580 574 581 ! opening "ice_evolu" file 575 CALL ctl_opn( numevo_ice, 'ice.evolu', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 582 IF ( lk_mpp ) THEN 583 WRITE(clname,FMT="('ice.evolu_',I4.4)") narea-1 584 ELSE 585 clname = 'ice.evolu' 586 END IF 587 irecl = ( jpchinf + 1 ) * nvinfo 588 CALL ctl_opn( numevo_ice, clname, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', & 589 & irecl, numout, .TRUE., narea ) 576 590 577 591 !- ecriture de 2 lignes d''entete :
Note: See TracChangeset
for help on using the changeset viewer.