| File |
Line number |
Procedure |
Code |
|
./pkg/atm2d/forward_step_atm2d.F |
102 |
FORWARD_STEP_ATM2D |
WRITE(ncep_yr,'(I4)') (NINT(RAND()*60.0+0.5) + 1947) |
|
./pkg/atm2d/forward_step_atm2d.F |
103 |
FORWARD_STEP_ATM2D |
PRINT *,'Using NCEP wind variations from year: ',ncep_yr |
|
./pkg/atm2d/forward_step_atm2d.F |
105 |
FORWARD_STEP_ATM2D |
& FILE='ncep_taux_variations_'//ncep_yr//'.bin',STATUS='old', |
|
./pkg/atm2d/forward_step_atm2d.F |
109 |
FORWARD_STEP_ATM2D |
& FILE='ncep_tauy_variations_'//ncep_yr//'.bin',STATUS='old', |
|
./pkg/atm2d/forward_step_atm2d.F |
113 |
FORWARD_STEP_ATM2D |
& FILE='ncep_speed_variations_'//ncep_yr//'.bin',STATUS='old', |
|
./pkg/atm2d/forward_step_atm2d.F |
71 |
FORWARD_STEP_ATM2D |
CHARACTER *4 ncep_yr |