Changeset 66 for trunk


Ignore:
Timestamp:
01/03/13 10:25:56 (11 years ago)
Author:
smasson
Message:

minor bugfixes related to previous changeset

Location:
trunk/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r65 r66  
    235235 
    236236      ALLOCATE(srcv(nmaxfld), stat = ierror) 
    237       IF( nerror > 0 ) CALL ctl_stop('Pb of alloction of srcv(nmaxfld) in sbc_cpl_init') 
    238       ALLOCATE(ssnd(nmaxfld), stat = nerror) 
    239       IF( nerror > 0 ) CALL ctl_stop('Pb of alloction of ssnd(nmaxfld) in sbc_cpl_init') 
     237      IF( ierror > 0 ) CALL ctl_stop('Pb of alloction of srcv(nmaxfld) in sbc_cpl_init') 
     238      ALLOCATE(ssnd(nmaxfld), stat = ierror) 
     239      IF( ierror > 0 ) CALL ctl_stop('Pb of alloction of ssnd(nmaxfld) in sbc_cpl_init') 
    240240 
    241241      ! ================================ ! 

  • trunk/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r65 r66  
    166166      !                            !==  finalize the run  ==! 
    167167      !                            !------------------------! 
    168       IF(lwp) WRITE(numout,cform_aaa)   ! Flag AAAAAAA 
    169       IF(lwp) Write(numout,*) 'Grid Number',Agrif_Fixed() 
    170168      IF(lwp) WRITE(numout,cform_aaa)   ! Flag AAAAAAA 
    171169      ! 
Note: See TracChangeset for help on using the changeset viewer.